[求助]：有没有多段线反向功能？怎么用阿

lvxj11

有没有多段线反向功能？怎么用阿？

qrs

好像晓东工具箱里就有这功能，你按上试试

caddog

请看来自明经通道的几个源码：
//lockmyeye

2. 
   
3. ;;;LWPOLYLINE线型换向，不能对POLYLINE线型换向，拟合过的线条都是POLYLINE线。
   
4. (DEFUN c:lwpolyline_reverse (/ ss1 num data one points tempnum tempent)
   
5.     (PRINC "\n\t请选择要换向的线条:")
   
6.     (SETQ ss1 (SSGET (LIST (CONS 0 "lwpolyline"))))
   
7.     (SETQ num 0)
   
8.     (REPEAT (IF ss1
   
9.                 (SSLENGTH ss1)
   
10.                 0
    
11.             )
    
12.         (SETQ data (ENTGET (SSNAME ss1 num))
    
13.               num  (1+ num)
    
14.         )
    
15.         (SETQ points nil)
    
16.         (FOREACH one data
    
17.             (PROGN (IF (= (CAR one) 10)
    
18.                        (SETQ points (APPEND points (LIST one)))
    
19.                    )
    
20.             )
    
21.         )
    
22.         (SETQ points (REVERSE points))
    
23.         (SETQ tempnum 0)
    
24.         (SETQ tempent nil)
    
25.         (FOREACH one data
    
26.             (PROGN (IF (= (CAR one) 10)
    
27.                        (SETQ tempent (APPEND tempent (LIST (NTH tempnum points)))
    
28.                              tempnum (1+ tempnum)
    
29.                        )
    
30.                        (SETQ tempent (APPEND tempent (LIST one)))
    
31.                    )
    
32.             )
    
33.         )
    
34.         (IF (NOT (ENTMOD tempent))
    
35.             (ALERT "错误:\n\t不能更新实体数据!\t")
    
36.         )
    
37.     )
    
38.     (PRINC)
    
39. )
    

<br /> ;;;LWPOLYLINE线型换向，不能对POLYLINE线型换向，拟合过的线条都是POLYLINE线。<br /> (DEFUN c:lwpolyline_reverse (/ ss1 num data one points tempnum tempent)<br />     (PRINC "\n\t请选择要换向的线条:")<br />     (SETQ ss1 (SSGET (LIST (CONS 0 "lwpolyline"))))<br />     (SETQ num 0)<br />     (REPEAT (IF ss1<br />                 (SSLENGTH ss1)<br />                 0<br />             )<br />         (SETQ data (ENTGET (SSNAME ss1 num))<br />               num  (1+ num)<br />         )<br />         (SETQ points nil)<br />         (FOREACH one data<br />             (PROGN (IF (= (CAR one) 10)<br />                        (SETQ points (APPEND points (LIST one)))<br />                    )<br />             )<br />         )<br />         (SETQ points (REVERSE points))<br />         (SETQ tempnum 0)<br />         (SETQ tempent nil)<br />         (FOREACH one data<br />             (PROGN (IF (= (CAR one) 10)<br />                        (SETQ tempent (APPEND tempent (LIST (NTH tempnum points)))<br />                              tempnum (1+ tempnum)<br />                        )<br />                        (SETQ tempent (APPEND tempent (LIST one)))<br />                    )<br />             )<br />         )<br />         (IF (NOT (ENTMOD tempent))<br />             (ALERT "错误:\n\t不能更新实体数据!\t")<br />         )<br />     )<br />     (PRINC)<br /> )<br />

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
又一个
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
//xbbcad

2. 
   
3. ;DDL: Copyright By WWZ,2003-12-3
   
4. ;颠倒直线的两端点,即交换实体对象组代码10和11，
   
5. ;用于解决直线、dimension、多段线的线型换向问题
   
6. 
   
7. (defun C:ddl(/ tmp ed ent m n endpt1 endpt2 newline name)
   
8. (princ "\n交换直线、多段线或标注的起点和终点.请选择直线、多段线或标注:\n")   
   
9. ;选择直线或标注，注意逻辑组的使用
   
10. (setq tmp (ssget (list (cons -4 "<OR")(cons 0 "LINE") (cons 0 "LWPOLYLINE") (cons 0 "DIMENSION") (cons -4 "or>"))))
    
11. (if tmp
    
12.    (progn
    
13.      (setq n (sslength tmp) m 0)
    
14.      (repeat n
    
15.          (setq ent (ssname tmp m))
    
16.          (setq ed  (entget ent))      
    
17.          ;(ts "\nent=")
    
18.          ;(ts ent)
    
19.          (setq name (cdr (assoc 0 ed)))
    
20.          (if (= name "LWPOLYLINE")
    
21.            (lwpolyline_reverse ent ed)
    
22.            (progn               
    
23.              (setq endpt1 (cons 11 (cdr (assoc 10 ed) )))         
    
24.              (setq endpt2 (cons 10 (cdr (assoc 11  ed) )))                  
    
25.              (setq ed (subst endpt1 (assoc 11 ed) ed))   
    
26.              (setq ed (subst endpt2 (assoc 10 ed) ed))
    
27.              (setq newline ed)
    
28.              ;删除原对象并生成相同句柄的新对象，注意：
    
29.              ;enddel 对象名称ent不是对象数据表ed
    
30.              ;endmod entmake 的不是对象名称ent是对象数据表ed
    
31.              (entdel  ent)
    
32.              (entmake newline)                          
    
33.           )
    
34.          );end if   
    
35.          (setq m (1+ m))
    
36.      );end repeat
    
37.    )
    
38. );end if tmp
    
39. (princ "\n共处理了")
    
40. (if m (princ m) (princ "0"))
    
41. (princ "条直线(多段线、标注)。")
    
42. (princ)
    
43.   
    
44. );end C:ddl
    
45. 
    
46. ;---------------------------------------------------------------------------
    
47. ;多段线的换向程序,修改自明经通道
    
48. (DEFUN lwpolyline_reverse (lwpent data / num data one points tempnum tempent)
    
49.   
    
50.        (SETQ points nil)
    
51.        (FOREACH one data
    
52.             (PROGN (IF (= (CAR one) 10)
    
53.                        (SETQ points (APPEND points (LIST one)))
    
54.                    )
    
55.             )
    
56.         )
    
57.         
    
58.         (SETQ points (REVERSE points))
    
59.         (SETQ tempnum 0)
    
60.         (SETQ tempent nil)
    
61.         
    
62.         (FOREACH one data
    
63.             (PROGN (IF (= (CAR one) 10)
    
64.                        (SETQ tempent (APPEND tempent (LIST (NTH tempnum points)))
    
65.                              tempnum (1+ tempnum)
    
66.                        )
    
67.                        (SETQ tempent (APPEND tempent (LIST one)))
    
68.                    )
    
69.             )
    
70.         )      
    
71.         (entdel  lwpent)
    
72.         (entmake tempent)
    
73.         
    
74.         (PRINC)
    
75. );end lwpolyline_reverse

<br /> ;DDL: Copyright By WWZ,2003-12-3<br /> ;颠倒直线的两端点,即交换实体对象组代码10和11，<br /> ;用于解决直线、dimension、多段线的线型换向问题 <br /> <br /> (defun C:ddl(/ tmp ed ent m n endpt1 endpt2 newline name)<br /> (princ "\n交换直线、多段线或标注的起点和终点.请选择直线、多段线或标注:\n")   <br /> ;选择直线或标注，注意逻辑组的使用<br /> (setq tmp (ssget (list (cons -4 "<OR")(cons 0 "LINE") (cons 0 "LWPOLYLINE") (cons 0 "DIMENSION") (cons -4 "or>"))))<br /> (if tmp<br />    (progn<br />      (setq n (sslength tmp) m 0)<br />      (repeat n<br />          (setq ent (ssname tmp m))<br />          (setq ed  (entget ent))      <br />          ;(ts "\nent=")<br />          ;(ts ent)<br />          (setq name (cdr (assoc 0 ed)))<br />          (if (= name "LWPOLYLINE")<br />            (lwpolyline_reverse ent ed)<br />            (progn                <br />              (setq endpt1 (cons 11 (cdr (assoc 10 ed) )))         <br />              (setq endpt2 (cons 10 (cdr (assoc 11  ed) )))                   <br />              (setq ed (subst endpt1 (assoc 11 ed) ed))    <br />              (setq ed (subst endpt2 (assoc 10 ed) ed))<br />              (setq newline ed) <br />              ;删除原对象并生成相同句柄的新对象，注意：<br />              ;enddel 对象名称ent不是对象数据表ed<br />              ;endmod entmake 的不是对象名称ent是对象数据表ed<br />              (entdel  ent)<br />              (entmake newline)                          <br />           )<br />          );end if   <br />          (setq m (1+ m)) <br />      );end repeat<br />    )<br /> );end if tmp<br /> (princ "\n共处理了")<br /> (if m (princ m) (princ "0"))<br /> (princ "条直线(多段线、标注)。")<br /> (princ)<br />   <br /> );end C:ddl <br /> <br /> ;--------------------------------------------------------------------------- <br /> ;多段线的换向程序,修改自明经通道<br /> (DEFUN lwpolyline_reverse (lwpent data / num data one points tempnum tempent)<br />   <br />        (SETQ points nil)<br />        (FOREACH one data<br />             (PROGN (IF (= (CAR one) 10)<br />                        (SETQ points (APPEND points (LIST one)))<br />                    )<br />             )<br />         )<br />         <br />         (SETQ points (REVERSE points))<br />         (SETQ tempnum 0)<br />         (SETQ tempent nil)<br />         <br />         (FOREACH one data<br />             (PROGN (IF (= (CAR one) 10)<br />                        (SETQ tempent (APPEND tempent (LIST (NTH tempnum points)))<br />                              tempnum (1+ tempnum)<br />                        )<br />                        (SETQ tempent (APPEND tempent (LIST one)))<br />                    )<br />             )<br />         )      <br />         (entdel  lwpent)<br />         (entmake tempent) <br />         <br />         (PRINC)<br /> );end lwpolyline_reverse

eachy

[iframe h=600 w=100%]http://eachy.bokee.com/5735623.html[/iframe]

雨箭风刀

;|  曲线实体换向------v1.1 2005.3.13
参数: ss 支持实体:  3DFACE, 3DPOLYLINE , LEADER, LIGHTWEIGHTPOLYLINE, MLINE, POINT, POLYFACEMESH,
                    POLYGONMESH, POLYLINE, SOLID, TRACE, SPLINE, LINE
实例: (x@rev (setq ss (ssget)))
      c:xrev
|;


[iframe h=600 w=100%]http://blog.139.com/dreamsky_lxx/article/738365.html[/iframe]

qrs

楼上的xrev 曲线反向功能很强啊，谢谢！

zbj721

我想要楼上的东东

JHX948954875

学习了学习了