如何实现多段线换向？

taozhen

龙哥、飞哥：请问如何将A线段的节点坐标读取，并换向排列，重新生成B线段，实现多段线换向。

meflying

2. (defun GETPL (ED / ENTS PTS PTS2 EDS D)
3.    (setq PTS nil PTS2 nil)
4.    (setq ENTS (entget ED))
5.    (setq EDS ENTS)
6.    (while (setq ENTS (member (assoc 10 ENTS) ENTS))
7.        (setq PTS (append PTS (list (car ENTS) (cadr ENTS) (caddr ENTS) (cadddr ENTS))))
8.        (setq ENTS (CDR ENTS))
9.    )
10.    (setq PTS (reverse PTS))
11.    (repeat 3 (setq PTS (append (cdr PTS) (list (car PTS)))))
12.    (foreach item PTS
13.        (if (= (car item) 42)           
14.            (setq item (cons 42 (- (cdr item))))
15.        )
16.        (setq PTS2 (append PTS2 (list item)))
17.    )
18.    (setq PTS PTS2)
19.    (while (setq item (assoc 10 EDS))
20.        (setq EDS (vl-remove item EDS))
21.        (setq EDS (vl-remove (assoc 40 EDS) EDS))
22.        (setq EDS (vl-remove (assoc 41 EDS) EDS))
23.        (setq EDS (vl-remove (assoc 42 EDS) EDS))
24.    )
25.    (setq D (car (setq EDS (reverse EDS))))
26.    (setq EDS (append (reverse (cdr EDS)) PTS (list D)))
27.    (entmod EDS)
28. )

(defun GETPL (ED / ENTS PTS PTS2 EDS D)    (setq PTS nil PTS2 nil)    (setq ENTS (entget ED))    (setq EDS ENTS)    (while (setq ENTS (member (assoc 10 ENTS) ENTS))        (setq PTS (append PTS (list (car ENTS) (cadr ENTS) (caddr ENTS) (cadddr ENTS))))        (setq ENTS (CDR ENTS))    )    (setq PTS (reverse PTS))    (repeat 3 (setq PTS (append (cdr PTS) (list (car PTS)))))    (foreach item PTS        (if (= (car item) 42)                       (setq item (cons 42 (- (cdr item))))        )        (setq PTS2 (append PTS2 (list item)))    )    (setq PTS PTS2)    (while (setq item (assoc 10 EDS))        (setq EDS (vl-remove item EDS))        (setq EDS (vl-remove (assoc 40 EDS) EDS))        (setq EDS (vl-remove (assoc 41 EDS) EDS))        (setq EDS (vl-remove (assoc 42 EDS) EDS))    )    (setq D (car (setq EDS (reverse EDS))))    (setq EDS (append (reverse (cdr EDS)) PTS (list D)))    (entmod EDS) )

dychs

还是不清楚

caogis

2楼的无命令，加载后怎么运行？

vormittag

如果是多段线（POLYLINE & LWPOLYLINE），从CAD2010开始(也可能09也有，09我没用过)，PEDIT命令有换向的选项了，不过对于LWPOLYLINE，好像线宽没换过来，如果你用非固定线宽的LWPOLYLINE来表示一个图形，换向以后就不是原来的样子了。

logoin

这个部题也一直困扰着我，对于有凸度的多义线，转向后凸度改了，这样就和原来的线不一样了
最后没办法只能在线的一端增加一条很短的多义线，按自已想要的顺序画，然后把原来的长线加入这个短线解决

vormittag

logoin 发表于 2011-10-9 19:49
这个部题也一直困扰着我，对于有凸度的多义线，转向后凸度改了，这样就和原来的线不一样了
最后没办法只能 ...

pedit的换向会考虑凸度的，但是不考虑起终点线宽。

byghbcx

(defun GETPL (ED / ENTS PTS PTS2 EDS D) ;(getpl (car (entsel)))多义线反向,优化了一下，考虑了终点线宽
   (setq PTS nil PTS2 nil)
   (setq ENTS (entget ED))
   (setq EDS ENTS)
   (while (setq ENTS (member (assoc 10 ENTS) ENTS))
       (setq PTS (append PTS (list (car ENTS) (cadddr ENTS) (cadr ENTS) (caddr ENTS))))
       (setq ENTS (CDR ENTS))
   )
   (setq PTS (reverse PTS))
   (repeat 3 (setq PTS (append (cdr PTS) (list (car PTS)))))
   (foreach item PTS
       (cond ((= (car item) 42)           
           (setq item (cons 42 (- (cdr item)))))
             ((= (car item) 40)           
           (setq item (cons 41 (cdr item))))
             ((= (car item) 41)           
           (setq item (cons 40 (cdr item))))
       )
       (setq PTS2 (append PTS2 (list item)))
   )
   (setq PTS PTS2)
   (while (setq item (assoc 10 EDS))
       (setq EDS (vl-remove item EDS))
       (setq EDS (vl-remove (assoc 40 EDS) EDS))
       (setq EDS (vl-remove (assoc 41 EDS) EDS))
       (setq EDS (vl-remove (assoc 42 EDS) EDS))
   )
   (setq D (car (setq EDS (reverse EDS))))
   (setq EDS (append (reverse (cdr EDS)) PTS (list D)))
   (entmod EDS)
)