Have you tried saving it in your default drawing templates?
Would not that set the default Balloon size not just the Revision Symbol?
OK, that set the Revision Symbol shape, which I have already done. I want to set the symbol diameter and font size. This will be on the drawing template.
Yes, do that setting in each of your drawing templates. The.slddrt files. Then save those
out using save as drawing format to create the .slddot files.
This surely will set ALL balloons to this size, not just the Revision Symbol.
I have to set the Revision Symbol diameter to 3mm and font to 2mm (instructions from he who must be obeyed), too small for 'normal' balloons.
Ok, I am confused. Are we talking about revision symbols or balloons?
They are two totally different animals. Please clarify.
I am refering to the Revision Symbol Shapes (circle,triangle,square & hexagon). There seems to be no independent way of setting a default size for them. They can be selected after creation and their size changed, but this is not what I want to do.
It looks as though an enhancement request is required.
Thanks for your input.
I did try a couple of things and they didn't work. Looks like the ER is the best route.
Sorry I couldn't help more.
I realise this is an old post but the way I overcame this was to use a macro to insert my revisions. In the macro I can specify the height of the text in the revision symbol (myTextFormat.CharHeight = 0.002), which overcomes your problem. Extract from the macro code below:
Dim swApp As Object
Dim Part As Object
Dim myModelView As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim CurrentRevTable As Object
Dim Props As Object
Dim temp As String
Dim tablerevlevel As String
Dim nNumRow As Integer
Dim mySymbol As Object
Dim UserInitials As String
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
UserInitials = "PN"
Set CurrentRevTable = Part.GetCurrentSheet.RevisionTable
If CurrentRevTable Is Nothing Then
'MsgBox ("There is no Revision Table on this sheet. One will be inserted now. ")
Set NewRevTable = Part.GetCurrentSheet.InsertRevisionTable(True, 0.15, 0.01, 2, "Revision Table Template Path")
longstatus = NewRevTable.AddRevision("")
NewRevTable.Text(2, 1) = "Issued to Production"
NewRevTable.Text(2, 3) = UserInitials
NewRevTable.Text(2, 4) = "n/a"
nNumRow = CurrentRevTable.RowCount
If nNumRow > 2 Then
CurrentRevTable.Text(nNumRow, 1) = ""
CurrentRevTable.Text(nNumRow, 3) = UserInitials
Set mySymbol = Part.InsertRevisionSymbol(0, 0)
If Not mySymbol Is Nothing Then
mySymbol.Angle = 0
boolstatus = mySymbol.SetBalloon(2, 0)
Set myAnnotation = mySymbol.GetAnnotation()
If Not myAnnotation Is Nothing Then
longstatus = myAnnotation.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False, False)
Set myTextFormat = Part.GetUserPreferenceTextFormat(0)
myTextFormat.Italic = True
myTextFormat.Underline = False
myTextFormat.Strikeout = False
myTextFormat.Bold = False
myTextFormat.Escapement = 0
myTextFormat.LineSpacing = 0.001
myTextFormat.CharHeight = 0.002
myTextFormat.TypeFaceName = "ISOCPEUR"
myTextFormat.WidthFactor = 1
myTextFormat.ObliqueAngle = 0
myTextFormat.LineLength = 0
myTextFormat.Vertical = False
myTextFormat.BackWards = False
myTextFormat.UpsideDown = False
myTextFormat.CharSpacingFactor = 1
boolstatus = myAnnotation.SetTextFormat(0, False, myTextFormat)
CurrentRevTable.Text(2, 1) = "Issued to Production"
CurrentRevTable.Text(2, 3) = UserInitials
I have been trying to figure this out myself!! That's what brought me to this thread. The balloons are way oversized in my opinion.