[原创]：任意指定LightweightPolyline的起点位置

eachy

程序写的比较简单，还可以增加在起点处显示“叉”就更明显了

2. 
   
3. ;;reset startpoint of lightweightpolyline
   
4. (defun c:tt (/ e p el el1 pam pam0 pam1 pam2 el2 el3)
   
5.   (if (and (setq e (entsel "\nSelect LightweightPolyline: "))
   
6.            (setq p (getpoint "\nPick Startpoint to: "))
   
7.       )
   
8.     (progn
   
9.       (setq el         (entget (car e));_ dxf list
   
10.             el1         (vl-remove-if-not
    
11.                    '(lambda (x) (vl-position (car x) '(10 40 41 42)))
    
12.                    (member (assoc 10 el) el)
    
13.                  );_property of coordinate (point startwidth endwidth bulge ...)
    
14.             el2         (reverse (cdr (member (assoc 10 el) (reverse el))));_lwpolyline dxf header
    
15.             pam         (vlax-curve-getparamatpoint
    
16.                    (car e)
    
17.                    (vlax-curve-getclosestpointto (car e) p)
    
18.                  );_ get index of pline
    
19.             pam1 (fix pam);_ previous index
    
20.             pam2 (1+ pam1);_ next index
    
21.       )
    
22.       (if (>= (- pam pam1) 0.5)
    
23.         (setq pam0 pam2)
    
24.         (setq pam0 pam1)
    
25.       );_ near index
    
26.       (setq p (nth (* 4 pam0) el1));_ A set of four
    
27.       (setq el3        (append        (member p el1)
    
28.                         (reverse (cdr (member p (reverse el1))))
    
29.                 )
    
30.       );_ reset points
    
31.       (entmod (append el2 el3))
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

<br /> ;;reset startpoint of lightweightpolyline <br /> (defun c:tt (/ e p el el1 pam pam0 pam1 pam2 el2 el3)<br />   (if (and (setq e (entsel "\nSelect LightweightPolyline: "))<br />            (setq p (getpoint "\nPick Startpoint to: "))<br />       )<br />     (progn<br />       (setq el         (entget (car e));_ dxf list<br />             el1         (vl-remove-if-not<br />                    '(lambda (x) (vl-position (car x) '(10 40 41 42)))<br />                    (member (assoc 10 el) el)<br />                  );_property of coordinate (point startwidth endwidth bulge ...)<br />             el2         (reverse (cdr (member (assoc 10 el) (reverse el))));_lwpolyline dxf header<br />             pam         (vlax-curve-getparamatpoint<br />                    (car e)<br />                    (vlax-curve-getclosestpointto (car e) p)<br />                  );_ get index of pline<br />             pam1 (fix pam);_ previous index<br />             pam2 (1+ pam1);_ next index<br />       )<br />       (if (>= (- pam pam1) 0.5)<br />         (setq pam0 pam2)<br />         (setq pam0 pam1)<br />       );_ near index<br />       (setq p (nth (* 4 pam0) el1));_ A set of four <br />       (setq el3        (append        (member p el1)<br />                         (reverse (cdr (member p (reverse el1))))<br />                 )<br />       );_ reset points<br />       (entmod (append el2 el3))<br />     )<br />   )<br />   (princ)<br /> )

aeo

el2          (reverse (cdr (member (assoc 10 el) (reverse el))))

有重复点就会有错误.
还有那个倒过来的一段代码也有这个问题.



还有最后的一个dxf42后面的信息没了，比如dxf210,在ucs改变的情况下，不知对不对.(没测试)

eachy

最初由 aeo 发布
[B]el2          (reverse (cdr (member (assoc 10 el) (reverse el))))

有重复点就会有错误.
还有那个倒过来的一段代码也有这个问题.



还有最后的一个dxf42后面的信息没了，比如dxf210,在ucs改变的情况下，?... [/B]

正确，上面的程序只是一个思路，其他细节没有考虑，还有比如UCS-〉OCS

njyulei

把您的改变Lightweightpolyline的绘制方向的程序合并到后面，先改变线顶点位置后在改变线方向，能增加顺时针和逆时针选择吗？谢谢!!!!

神秘将军

正需要，支持楼主大人了！