画pl线的小程序请问。。。?

kingofauto

画pl线小程序。请问如何象pl命令那样可以在画的过程中使用undo撤消。

(defun c:gpl( / obj1 obj2 gp1 gp2)
 (setq obj2 nil)
        (setq gp1 (getpoint))
        (while
          (setq gp2 (getpoint gp1))
          (command "pline" gp1 gp2 "" )
          (setq obj1 (entlast))
   (if ( /= obj2 nil)
              (command "pedit"  "m" obj1 obj2 ""   "j" "j" "b" 1 "")
   )
   (setq obj1 (entlast)
                gp1 gp2
         obj2 obj1
          )
       );while
);defun

f5612140

1.程序希望的效果与指令pline有何不同?

2.在程序中直接用(command "pline" pause),是否可直接达到你的需求?

kingofauto

本想在程序中边画线，边生成线形。因为不懂undo，经常位置画错，只能从头画。

希望指点指点。

tcsl9621

你可以不用管，等画完了再改就是了。呵……

Andyhon

试试:

(command "pline" gp1)
(while (> (getvar "cmdactive") 0) (command pause))

 

kingofauto

真的很想说  i 服了u

退亿万步说，共同进步一下，有没有办法实现undo。没有也没关系，我还撑的住

 

kingofauto

 

真的很想说  i 服了u

退亿万步说，共同进步一下，有没有办法实现undo。没有也没关系，我还撑的住

此贴回应4楼的。

同时谢谢五搂。你的方法我试不出来，能否详细说明一下

 

tcsl9621

这样的话,你可以用这个办法实现。

编个LISP程序，可以让用户循环选择所有画PL的命令选项和自加返回上一点的功能。

先将已绘制的多义线显示出来。当用户选择返回上一点用用程序删除多义线的最后一点。再画一点就再在PL对像上增加一点。也很好实现。

我以为楼主只想要这个功能。

呵……会错意了。希望共同学习一起进步。

kingofauto

本以为调调cad命令就可以

谢谢tcsl9621提供思路。固的，呵呵。。。。