wimal 发表于 2022-7-5 20:09:46

当前文本的高度

我们可以通过lisp将当前文本样式的高度设置为零吗。

Lee Mac 发表于 2022-7-5 20:20:42

请尝试以下操作：
(defun c:ts2zero nil
   (vla-put-height (vla-get-activetextstyle (vla-get-activedocument (vlax-get-acad-object))) 0.0)
   (princ)
)
(vl-load-com) (princ)

wimal 发表于 2022-7-5 20:33:59

谢谢。这对我的节目来说是个大问题。我需要另一个帮助。我们可以将其重置为以前的值吗。

Lee Mac 发表于 2022-7-5 20:42:05

在将其设置为零之前，将原始值分配给局部变量，然后使用局部变量恢复该值。

BIGAL 发表于 2022-7-5 20:57:03

在零的位置创建一个新的文本样式会更安全，因此我们使用标准，并有其他自定义和注释性的文本样式。ISO25 ISO5等如果您的lisp由于任何原因崩溃或用户中止，它将不会重置。
 

(if (= "Standard" (getvar "textstyle"))
(setq oldtstyle (getvar "textstyle"))
(setvar "textstyle" "standard")
)

nod684 发表于 2022-7-5 21:08:32

你也可以试试吉米·伯格马克的这个
 
http://www.jtbworld.com/lisp/tsh0.htm

wimal 发表于 2022-7-5 21:13:07

非常感谢亲爱的大家
页: [1]
查看完整版本: 当前文本的高度