Dim线性修改Lisp

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

我有一些Lisp程序的经验，但我似乎无法创建或找到一个具体的。

我试图找到一个lisp，它允许我做一个线性标注，然后用引线从右向左移动标注。我基本上想把这两个命令合并成一个。命令的名称为“标注线性”和“标注、文字、随引线移动”。

Dimlinear的宏是^C^C\U Dimlinear

尺寸、文字、带引线移动的宏为^C^C\u aidimtextmove \u 1

谢谢你的帮助

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

难道不是这样吗？

copy


(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

没问题！
:-)

[编程交流] Dim线性修改Lisp

发表回复

精选推荐