11 Replies Latest reply on Mar 15, 2017 3:40 PM by Mike Flanders

    Revision Symbol Size

    Peter Nichols

      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?

        • Re: Revision Symbol Size
          Scott McFadden


          Have you tried saving it in your default drawing templates?

          • Re: Revision Symbol Size
            Louis Sherwin

            Hi Peter,


            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


            Sub main()

            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.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
                   CurrentRevTable.AddRevision ("")
                   CurrentRevTable.Text(2, 1) = "Issued to Production"
                   CurrentRevTable.Text(2, 3) = UserInitials
                End If
            End If

            End Sub

            • Re: Revision Symbol Size
              Mike Flanders

              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.