从数字运行宏

comcu · 发表于 2022-7-6 15:37:48

你好

是的，我使用过lisp方法，以前从未使用过lisp，但它对于创建新命令非常方便。我只是将我编写的宏转移到lisp中

干杯

col。

comcu · 发表于 2022-7-6 15:40:11


(defun c:4 ()
(command "multiple" "dimlinear" pause pause pause)
(princ)
)

尝试了上述操作，以允许我使用键“4”到dimlinear的多个命令，但不起作用，我尝试放弃“多个”并将

""

但最后它返回命令4未找到？我知道它试图重复命令4，但autocad不明白这一点？

干杯

col。

Lee Mac · 发表于 2022-7-6 15:45:59

为什么不使用while语句来重复该命令？


(defun c:4  (/ iPt)
 (while (setq iPt (getpoint "\nSelect First Point: "))
   (command "multiple" "dimlinear" iPt pause pause))
 (princ)
 )

comcu · 发表于 2022-7-6 15:49:42

李，

为什么不呢！

这真的很好用，桑斯克可以在其他方面对其进行修改

干杯

Col。

Lee Mac · 发表于 2022-7-6 15:55:16

没问题，还有什么事，上校，尽管问

[编程交流] 从数字运行宏