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

Lisp到标注

我想知道如何使用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的行后面

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

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

厉害!“暂停”正是我想要的方式!谢谢大家!
 
如果没有必要的话,我不想为此启动另一个线程,但我还有一个问题是关于清除。我想找出一个类似这样的lisp。。。
 
如果存在“X”dimstyle,则清除它。如果不存在,请继续使用lisp。"
 
我怎样才能做到这一点?

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


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

如果引用dimstyle,则可能会出现错误
页: [1]
查看完整版本: Lisp到标注