lisp 用外部命令，如何实现？

明27662

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。

start4444

C:yx_aq 有源码就好办，改为自定义函数， 数字和两个点为参数