[LISP程序]：写“箭头绘制”程序发现的问题

LADESIGNER

我想让用户画一条pline线，画线结束，插入箭头。画线的方式是autocad自身的pline命令，给一个起点，用pline命令画。但总是pline开始后一直执行到最后，不可能等用户画完再执行另一个操作。不知我说明白了没有。
比如：
（command “pline” pt ）
（command “line” pt （getvar “lastpoint”） “”）
原意是画一条折线，画完用一条直线把起点和终点连起来。但是不行。制造一个错误中断的方法也不行。用pause还不知要pause几个。
    大家讨论一下，有何好办法。

david96007

看不明白你说什么！

参考一下：

(command ".pline")
  (while (/= "" (getvar "cmdnames"))
    (command pause)
  )

LADESIGNER

最初由 david96007 发布
[B]看不明白你说什么！

参考一下：

(command ".pline")
  (while (/= "" (getvar "cmdnames"))
    (command pause)
  ) [/B]

           (command ".pline")
                      。。。。。。。。
           (command "insert"  "_arrow"  (刚画的pl线终点) "" "" "")