It is possible to adjust the size/columns/font in a Revision Table and save it as a default. But, I cannot seem to save the Revision Symbol size and font with this default, is there a way of doing this?
Have you tried saving it in your default drawing templates?
Would not that set the default Balloon size not just the Revision Symbol?
I am talking here in tools>options
The rev symbols are independant from the balloons.
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 ObjectDim myModelView As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim CurrentRevTable As ObjectDim Props As ObjectDim temp As StringDim tablerevlevel As StringDim nNumRow As IntegerDim mySymbol As ObjectDim 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" Else
nNumRow = CurrentRevTable.RowCount
If nNumRow > 2 Then CurrentRevTable.AddRevision ("") 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) End If End If Else CurrentRevTable.AddRevision ("") CurrentRevTable.Text(2, 1) = "Issued to Production" CurrentRevTable.Text(2, 3) = UserInitials End IfEnd If
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.
Retrieving data ...