[寻找]：功能是"多线义反向"的lsp 【完成】

ydf7332462

15F能否将函数加上后，给一个完整的附件以下载

aeo

最初由 ydf7332462 发布
[B]line pline有方向,我想用其表示管道中水的流向.
Lw表示打印宽,用层宽;
pline自身线宽表示管径+坡度等
不要将前后的线宽换过来,如要换让用者选； [/B]

按你的意思，pline线变成轻装多义线也可以，我就不写了.


;;;下面POLYLINE-->LWPOLYLINE,并加入直线.
;;;命令名test,自己改其他的吧.
;;;还是六楼的.test改了一下.

2. 
   
3. ;;;==============================================
   
4. ;;;多线义和直线反向
   
5. ;;;by Aeo
   
6. ;;;-----------------------------------------------
   
7. (defun reverse-LWpline (e / a en how li1 li2 li3)
   
8. (setq en(entget e '("*")) how nil)
   
9. (foreach an en
   
10.   (if(setq a(member(car an)'(10 40 41 42)))(setq how t))
    
11.   (cond((not how)(setq li1(cons an li1)))
    
12.        ((and how a)
    
13.          (cond((=(car an)40)(setq an(cons 41(cdr an))))
    
14.               ((=(car an)41)(setq an(cons 40(cdr an))))
    
15.               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))
    
16.               (t an)
    
17.           )
    
18.          (setq li2(cons an li2)))
    
19.        ((and how(not a))(setq li3(cons an li3)))
    
20.    )
    
21.   )
    
22. (entmod(append
    
23.          (reverse li1)
    
24.          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))
    
25.          (reverse li3)
    
26.         )
    
27. )
    
28. )
    
29. (defun c:test( / e en j p10 p11 ss)
    
30. (setq j -1)
    
31. (prompt"\n选择要反向的直线或多义线:")
    
32. (if(setq ss(ssget '((0 . "*POLYLINE,line"))))
    
33.      (progn
    
34.      (command"undo""group")
    
35.      (repeat(sslength ss)
    
36.       (setq e(ssname ss(setq j(1+ j))))
    
37.       (if(= "POLYLINE"(cdr(assoc 0(entget e))))(command"convert""p""s"e""))
    
38.       (cond((= "LWPOLYLINE"(cdr(assoc 0(entget e))))(reverse-LWpline e ))
    
39.            ((= "LINE"(cdr(assoc 0(entget e))))
    
40.             (setq en(entget e) p10(cdr(assoc 10 en)) p11(cdr(assoc 11 en))
    
41.                   en(subst(cons 10 p11)(assoc 10 en)en)
    
42.                   en(subst(cons 11 p10)(assoc 11 en)en)
    
43.              )(entmod en)
    
44.            )
    
45.        )
    
46.      )(command"undo""end")
    
47.    )
    
48. )
    
49. (princ)
    
50. )
    

<br /> ;;;==============================================<br /> ;;;多线义和直线反向<br /> ;;;by Aeo<br /> ;;;-----------------------------------------------<br /> (defun reverse-LWpline (e / a en how li1 li2 li3)<br /> (setq en(entget e '("*")) how nil)<br /> (foreach an en<br />   (if(setq a(member(car an)'(10 40 41 42)))(setq how t))<br />   (cond((not how)(setq li1(cons an li1)))<br />        ((and how a)<br />          (cond((=(car an)40)(setq an(cons 41(cdr an))))<br />               ((=(car an)41)(setq an(cons 40(cdr an))))<br />               ((=(car an)42)(setq an(cons 42(- 0(cdr an)))))<br />               (t an)<br />           )<br />          (setq li2(cons an li2)))<br />        ((and how(not a))(setq li3(cons an li3)))<br />    )<br />   )<br /> (entmod(append<br />          (reverse li1)<br />          (append(cdddr li2)(list(car li2)(cadr li2)(caddr li2)))<br />          (reverse li3)<br />         )<br /> )<br /> )<br /> (defun c:test( / e en j p10 p11 ss)<br /> (setq j -1)<br /> (prompt"\n选择要反向的直线或多义线:")<br /> (if(setq ss(ssget '((0 . "*POLYLINE,line"))))<br />      (progn<br />      (command"undo""group")<br />      (repeat(sslength ss)<br />       (setq e(ssname ss(setq j(1+ j))))<br />       (if(= "POLYLINE"(cdr(assoc 0(entget e))))(command"convert""p""s"e""))<br />       (cond((= "LWPOLYLINE"(cdr(assoc 0(entget e))))(reverse-LWpline e ))<br />            ((= "LINE"(cdr(assoc 0(entget e))))<br />             (setq en(entget e) p10(cdr(assoc 10 en)) p11(cdr(assoc 11 en))<br />                   en(subst(cons 10 p11)(assoc 10 en)en)<br />                   en(subst(cons 11 p10)(assoc 11 en)en)<br />              )(entmod en)<br />            )<br />        )<br />      )(command"undo""end")<br />    )<br /> )<br /> (princ)<br /> )<br />

树櫴希德

好程序啊，特别是搞地籍用

清风明月10

路过学习学习。谢谢分享！