文本样式高度&（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

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

copy


(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&#

发表回复

精选推荐