[求助]关于command命令

xiaocai8

(setq aaa '(0 0 0))
(command "pline" aaa)
(princ "\n运行其它程序")

我希望能运行完(command "pline" aaa)绘制好线再运行下程序，但实际运行时pline命令被中断了。不知哪位能解决这问题。

wmz

xiaocai8发表于2005-10-11 17:36:00回复：（xiaocai8）关于command命令 (setq aaa '(0 0 0))(command \"pline\" aaa)(princ \"\n运行其它程序\") 我希望能运行完(command \"pline\" aaa)绘制好线再运行下程序

这PLINE命令还没有执行完哩!

若这样就可以执行完:

(setq aaa '(0 0 0) bbb '(10 10 0))

(command "PLINE" aaa bbb "")

(princ "运行下面的程序")

sailorcwx

你把(princ "\n运行其它程序")取消就不会中断了

xiaocai8

多谢两位参与，我需要运行command命令绘制一条曲线后再运行其他程序。

雪山飞狐_lzh

这个意思?

(defun c:tt()
(command "_.pline")
(while (= (getvar "cmdnames") "PLINE") (command pause))
(princ "\n运行其它程序")
)