szx025 发表于 2014-5-13 13:43:38

动态查询尺寸信息

((= 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 发表于 2014-5-13 14:25:39

ScaleFactor,这原来是YAD的程序吧

aihuyujian 发表于 2014-5-13 14:28:56

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

szx025 发表于 2014-5-13 14:29:40

是的。
ScaleFactor啥意思
页: [1]
查看完整版本: 动态查询尺寸信息