Lisp到标注

brawleyman · 发表于 2022-7-6 17:13:37

我想知道如何使用lisp例程中的维度。我有一个创建自定义尺寸样式的lisp，但我想让它启动“标注”命令。我在lisp中有“_dimlinear”，但它不允许我选择我的点。允许命令在lisp中获得用户输入的命令行是什么？谢谢

Lee Mac · 发表于 2022-7-6 17:40:53

像这样的事情都应该奏效：

(defun c:dimtest (/)
   (command "_dimlinear"
       pause
       pause
       pause
   )
   (princ)
)

好吧，它对我来说无论如何都是可行的-但是我使用的是ACAD 2004，而不是像你一样的09-因此线性维度的命令语法可能略有不同。

但如果这有任何帮助，请告诉我

lpseifert · 发表于 2022-7-6 17:50:49

不看代码很难说，但试试这个。。。
试着把这个放在调用dimlinear的行后面

copy


(while (> (getvar 'CmdActive) 0) (command pause))

brawleyman · 发表于 2022-7-6 18:03:03

厉害！“暂停”正是我想要的方式！谢谢大家！

如果没有必要的话，我不想为此启动另一个线程，但我还有一个问题是关于清除。我想找出一个类似这样的lisp。。。

如果存在“X”dimstyle，则清除它。如果不存在，请继续使用lisp。"

我怎样才能做到这一点？

lpseifert · 发表于 2022-7-6 18:27:48

copy


(if 
(tblsearch "dimstyle" "x");predicate
(command "-purge" "d" "x" "n");if true do this [may need another "n"]
(progn                                       ; if false do this
 (code)
);progn
);if

如果引用dimstyle，则可能会出现错误

[编程交流] Lisp到标注

发表回复

精选推荐