lisp 用外部命令,如何实现?
yx_aq是外部命令,正常在cad中使用命令yx_aq之后需要输入一个数字,回车,在两个点,回车,再一个数字。在lisp程序中如何实现?
(defun C:w1()
(setq p1 (getpoint))
(setq p2 (getpoint))
(C:yx_aq )
(command 3)
(command p1)
(command p2)
(command 3)
)
这样传不到yx_aq这里面,要等yx_aq运行完后,才运行后面的command。
C:yx_aq 有源码就好办,改为自定义函数, 数字和两个点为参数
页:
[1]