letsgo19 发表于 2022-7-5 15:52:59

Dim线性修改Lisp

我有一些Lisp程序的经验，但我似乎无法创建或找到一个具体的。
 
我试图找到一个lisp，它允许我做一个线性标注，然后用引线从右向左移动标注。我基本上想把这两个命令合并成一个。命令的名称为“标注线性”和“标注、文字、随引线移动”。
 
Dimlinear的宏是^C^C\U Dimlinear
 
尺寸、文字、带引线移动的宏为^C^C\u aidimtextmove \u 1
 
谢谢你的帮助

Aftertouch 发表于 2022-7-5 16:19:37

难道不是这样吗？
 

(defun C:TEST ( / )
(command "DIMLINEAR" PAUSE PAUSE PAUSE)
(command "AIDIMTEXTMOVE" "1" (entlast) "")
(princ)
)

letsgo19 发表于 2022-7-5 16:37:14

当当，这是快速的，它的工作就像我希望它会，谢谢你做得好！

Aftertouch 发表于 2022-7-5 17:00:11

没问题！
:-)
页: [1]
查看完整版本: Dim线性修改Lisp