社区 › Auto Lisp › 文本样式高度&（getvar&#

Kerry Brown 发表于 2022-7-6 11:21:26

试试看！！！
打开新图形并运行我的代码

Tharwat 发表于 2022-7-6 11:22:57

我做得好吗？请告诉我。

Kerry Brown 发表于 2022-7-6 11:30:04

 
你得到什么了吗？？

Kerry Brown 发表于 2022-7-6 11:34:04

我刚在一幅新画里试过这个
结果如预期。
 



(vl-load-com)
(setq ots         (vla-get-activetextstyle
                     (vla-get-activedocument (vlax-get-acad-object))
                   )
   CurrentHeight (vla-get-height ots)
   LastHeight    (vla-get-lastheight ots)
)
(alert (strcat "TEXTSTYLE : "      (getvar 'TEXTSTYLE)
            "\n TEXTSIZE : "    (vl-prin1-to-string (getvar 'TEXTSIZE))
            "\n CurrentHeight : "   (vl-prin1-to-string CurrentHeight)
            "\n LastHeight : "      (vl-prin1-to-string LastHeight)
      )
)

Tharwat 发表于 2022-7-6 11:37:16

克里，你太棒了。
 
我觉得说不出话来。您正在使用一种非常特殊的lisp技术。
 
顺致敬意，
 
塔瓦特

查看完整版本: 文本样式高度&（getvar&#