求在已有多义线上接着画的代码

q3_2006

newer 发表于 2013-9-21 14:34
函数库已经有了，XD:ickset2PL

http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=669548 ...

不一样哟。。不是批选。。

Free-Lancer

vla 方法没有 remvoevertex , 只能重新 put-coordinates ，API  + U 方式如下

1. (defun c:tt (/ e endpam ep p i)
   
2.   (if (setq e (car (xdrx_entsel "\nPick Pline: ")))
   
3.     (progn
   
4.       (setq i 0)
   
5.       (while (progn
   
6.            (initget "U")
   
7.            (setq p (getpoint (vlax-curve-getendpoint e)
   
8.                  "\nNext Point[U - Undo]: "
   
9.                )
   
10.            )
    
11.          )
    
12.     (cond
    
13.       ((and (= p "U") (> i 0))
    
14.        (xdrx_polyline_removevertexat
    
15.          e
    
16.          (fix (vlax-curve-getendparam e))
    
17.        )
    
18.        (setq i (1- i))
    
19.       )
    
20.       ((= (type p) 'LIST)
    
21.        (setq ep    (vlax-curve-getendpoint e)
    
22.          endpam    (fix (vlax-curve-getendparam e))
    
23.        )
    
24.        (xdrx_polyline_setpointat e endpam p)
    
25.        (xdrx_polyline_addvertexat e endpam ep)
    
26.        (setq i (1+ i))
    
27.       )
    
28.       (t (princ "\nUndo Nothing!"))
    
29.     )
    
30.       )
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )

(defun c:tt (/ e endpam ep p i)<br />   (if (setq e (car (xdrx_entsel "\nPick Pline: ")))<br />     (progn<br />       (setq i 0)<br />       (while (progn<br />            (initget "U")<br />            (setq p (getpoint (vlax-curve-getendpoint e)<br />                  "\nNext Point[U - Undo]: "<br />                )<br />            )<br />          )<br />     (cond<br />       ((and (= p "U") (> i 0))<br />        (xdrx_polyline_removevertexat<br />          e<br />          (fix (vlax-curve-getendparam e))<br />        )<br />        (setq i (1- i))<br />       )<br />       ((= (type p) 'LIST)<br />        (setq ep    (vlax-curve-getendpoint e)<br />          endpam    (fix (vlax-curve-getendparam e))<br />        )<br />        (xdrx_polyline_setpointat e endpam p)<br />        (xdrx_polyline_addvertexat e endpam ep)<br />        (setq i (1+ i))<br />       )<br />       (t (princ "\nUndo Nothing!"))<br />     )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

aeo

http://bbs.xdcad.net/thread-671094-1-1.html

看看我写的怎么样

XDSoft

Free-Lancer 发表于 2013-9-22 08:25
vla 方法没有 remvoevertex , 只能重新 put-coordinates ，API  + U 方式如下

只需要在合适的地方调用下 xdrx_undostart...xdrx_undoend,  然后在输入U的时候用 (vla-cmdf "undo" 1) 就可以了。