Text Style Height and Width place based on a variable

I am trying to write some line styles that will need variable height, width and line spacing based on the horizontal scale of the drawing. Something like

Height = 0.1 * HorizScale

Width = 0.09 * HorizScale

Color = 8

Weight = 4

Font = "Arial"

 

Would the best method be to create the line style then wehn placing it change the height and width at that time?

 

MS version 08.11.09.459

Parents
  • http://translate.google.it/

    I do not know if it is the right method but it works in VBA

    first create the test style o"style_name"

     

            dim fsx as double  ' HorizScale

     

             CadInputQueue.SendCommand "TEXTSTYLE DESELECT ALL"
             CadInputQueue.SendKeyin "TEXTSTYLE ACTIVE  style_name"
             CadInputQueue.SendCommand "TEXTSTYLESET ColorValue ""7"" ""style_name"""
             CadInputQueue.SendCommand "TEXTSTYLESET Height " & Str(0.22 * fsx) & "style_name"""
             CadInputQueue.SendCommand "TEXTSTYLESET Width " & Str(0.187 * fsx) & "style_name"""
             CadInputQueue.SendCommand "TEXTSTYLESET SingleLineJust CENTERCENTER ""style_name"""

     

    Massimo Callegher

    Answer Verified By: SteveMeyer 

Reply
  • http://translate.google.it/

    I do not know if it is the right method but it works in VBA

    first create the test style o"style_name"

     

            dim fsx as double  ' HorizScale

     

             CadInputQueue.SendCommand "TEXTSTYLE DESELECT ALL"
             CadInputQueue.SendKeyin "TEXTSTYLE ACTIVE  style_name"
             CadInputQueue.SendCommand "TEXTSTYLESET ColorValue ""7"" ""style_name"""
             CadInputQueue.SendCommand "TEXTSTYLESET Height " & Str(0.22 * fsx) & "style_name"""
             CadInputQueue.SendCommand "TEXTSTYLESET Width " & Str(0.187 * fsx) & "style_name"""
             CadInputQueue.SendCommand "TEXTSTYLESET SingleLineJust CENTERCENTER ""style_name"""

     

    Massimo Callegher

    Answer Verified By: SteveMeyer 

Children
No Data