×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Drafting; Place balloons without a leader

Drafting; Place balloons without a leader

Drafting; Place balloons without a leader

(OP)
Is it possible to place balloons on a drawing without the leader? I know you can right click on the leader and then remove it, but of course this is unacceptable (I place a lot of balloons). I can't find it anywhere in the drafting standards to default to having no leader.

Nick

Light structural commercial aircraft parts
PCDMIS 4.3 CAD++, CATIA V5 R20, NX6
APM Consortium Inc.
Cambridge Ontario, Canada

RE: Drafting; Place balloons without a leader

Hi,

With a macro. Copy-paste in a CATScript.

REM Option Explicit

Dim CatiaApp As Application
Dim CatiaDoc As Document
Dim DrawDoc1 As DrawingDocument
Dim vDoc1 As Variant

Dim DrawSheets1 As DrawingSheets
Dim DrawSheet1 As DrawingSheet
Dim DrawViews1 As DrawingViews
Dim DrawView1 As DrawingView
Dim DrawTexts1 As DrawingTexts
Dim DrawText1 As DrawingText
Dim DrawLeader1 As DrawingLeader

Dim bMainViewIsActive
Dim sFileType As String

Dim Selection1
Dim objSelFilterType1()
Dim sStatus1 As String
Dim SelectedElement1

Dim PointLocation1(1)
Dim objSelected1

Dim sStatus2 As String
Dim PointLocation2(1)

Sub CATMain()
' Attach to Catia
Set CatiaApp = CATIA.Application

'~ MsgBox "Always look in lower left corner of your CATIA window and read the instructions"

On Error Resume Next ' Error Handler in case no file open.
Set CatiaDoc = CatiaApp.ActiveDocument
On Error GoTo 0 ' Error Handler OFF.

' Document is valid
If Not (CatiaDoc Is Nothing) Then

' Get document type
sFileType = TypeName(CatiaDoc)

' Is it a drawing ?
If sFileType = "DrawingDocument" Then
Set DrawDoc1 = CatiaDoc
Set DrawSheets1 = DrawDoc1.Sheets
Set DrawSheet1 = DrawSheets1.ActiveSheet
Set DrawViews1 = DrawSheet1.Views
Set DrawView1 = DrawViews1.ActiveView
Set DrawTexts1 = DrawView1.Texts

If (DrawView1.Name = "Main View") Then
bMainViewIsActive = True
Else
bMainViewIsActive = False
End If

'''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim myString 'As Double
myString = "000"
myString = InputBox ("Please enter the text, automatically you will have also a circle around the text.", "Enter Text")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Ask user to select a Text Insertion Location

Set vDoc1 = DrawDoc1
sStatus2 = vDoc1.Indicate2D("Select TEXT Insertion Point, it will be left upper corner", PointLocation2)

If (sStatus2 = "Cancel") Then
Unload frmStatus
Exit Sub
End If

Set DrawText1 = DrawTexts1.Add(myString, PointLocation2(0), PointLocation2(1))
DrawText1.SetFontSize 0,0,7.00

'Turn On a Frame
DrawText1.ActivateFrame 3 '53 '(locked catCircle)

Dim Message, Style, Title, Response, SecString
Message = ("Change frame text circle to double circle ?" )
Style = vbYesNo + vbDefaultButton1 'Define default button
Title = "Purpose : change frame text "
Response = MsgBox(Message, Style, Title)
If Response = vbYes Then ' User chose Yes.
SecString = "Yes"

DrawText1.ActivateFrame 15 '65

End If

Else
MsgBox "Current document is not a Drawing." & Chr(13) & Chr(13) _
& "Please load/activate a Catia " & Chr(13) _
& "drawing and try again.", vbExclamation
End If
Else
MsgBox "No active Drawing found in Catia." & Chr(13) & Chr(13) _
& "Please load/activate a Catia " & Chr(13) _
& "drawing and try again.", vbExclamation
End If


End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

RE: Drafting; Place balloons without a leader

(OP)
You know, I looked at that script briefly and decided it was too daunting to attempt. I was hoping there was a way to just change a default but with a little fiddling, this macro is perfect. A little late but, thank you.

Nick

Light structural commercial aircraft parts
PCDMIS 4.3 CAD++, CATIA V5 R20, NX6
APM Consortium Inc.
Cambridge Ontario, Canada

RE: Drafting; Place balloons without a leader

Nick,

Until you can adjust the Standard or implement Ferdo's macro; two "poor man's" methods to remove the leaders:

1. create first Balloon and remove the Leader, then copy&paste it to create all the others

2. create all the Balloons with Leaders, remove the Leader on one Balloon, and then use the Painter tool (Paint Brush icon in the Graphic Properties toolbar) to make all the other Balloons look like the leader-less one.

RE: Drafting; Place balloons without a leader

(OP)
I have implemented Ferdo's macro. That's what prompted my "thank you". I do actually have access to the drafting standards; there is nothing available to accomplish what I was looking for (no leaders on balloons by default).

I tried the copy paste method. I can't remember exactly, but I think I had minor problems in that it also copied the "positional link" attributes. Which was annoying at times.

I also tried the painter tool, but it has no effect on the leaders' existence.

Cheers,
Nick

Light structural commercial aircraft parts
PCDMIS 4.3 CAD++, CATIA V5 R20, NX6
APM Consortium Inc.
Cambridge Ontario, Canada

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources