动态查询尺寸信息

szx025

((= name "DIMENSION")
        (setq lst (list "【尺寸标注】"
                        (strcat "标注样式:" (vla-get-StyleName obj))
                        (strcat "文字样式:" (vla-get-TextStyle obj))
                        (strcat "文字高度:" (rtos (vla-get-TextHeight obj) 2 lup))
                        (strcat        "替带文字:" (if (= (dxf ent 1) "") "无" (dxf ent 1)))
        ))
      )
这是一个动态查询信息查的程序中的一部分，我想再加入标注比例的信息，(strcat "标注比例:" (？？？？？？？？))
这里应该如何写

byghbcx

ScaleFactor,这原来是YAD的程序吧

aihuyujian

(strcat "标注比例:" (vl-princ-to-string (vla-get-ScaleFactor obj))) 试试？

szx025

是的。
ScaleFactor啥意思