1 Reply Latest reply on Jan 8, 2015 4:30 AM by Yong Ning

    System Options → Table font size

    Yong Ning

      2010 SolidWorks API Help - Document Properties > Tables

      http://help.solidworks.com/2010/english/api/swconst/dp_tables.htm

       

      DP_Tables.gif

       

       

       

       

      00.jpg

       

      How to select the Document Properties→Annotations font → tables → Height 3mm

       

       

      ****************************************

      2010 SolidWorks API Help - swUserPreferenceDoubleValue_e Enumeration

      http://help.solidworks.com/2010/english/api/swconst/SolidWorks.Interop.swconst~SolidWorks.Interop.swconst.swUserPreferenceDoubleValue_e.html

       

      **************************

      Document Properties→Annotations font → Note → Height 3mm

      → .SetUserPreferenceDoubleValue swDetailingNoteFontHeight, 3 / 1000

       

      but don't find method of  Document Properties→Annotations font → tables

       

       

      2010 SolidWorks API Help - System Options and Document Properties

      http://help.solidworks.com/2010/english/api/sldworksapiprogguide/overview/system_options_and_document_properties.htm

        • Re: System Options → Table font size
          Yong Ning

          Find method

           

          Change Dimension Text Size on a Drawing | SOLIDWORKS Forums

          https://forum.solidworks.com/message/432133#432133

           

           

           

          Private Sub lll11()

             Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

                Set SwApp = Application.SldWorks

                Set SwModel = SwApp.ActiveDoc

             Dim TextFormat As TextFormat

                Set TextFormat = SwModel.GetUserPreferenceTextFormat(swDetailingGeneralTableTextFormat)

                'Stop

                With TextFormat

                   Debug.Print .TypeFaceName, .CharHeight, .CharSpacingFactor

                   .CharHeight = 10 / 1000

                   .TypeFaceName = "宋体"

                End With

                Debug.Print

                SwModel.SetUserPreferenceTextFormat swDetailingGeneralTableTextFormat, TextFormat

                Stop

          End Sub