打散多义线

liu22737

;;;;打散多义线 ----lsx.2013.12
;调用方法:(py_ln1(car(entsel)))
(defun py_ln1(a1 / a2 p1 pt i a_last ssa)
(setq a2(entget a1)p1(assoc 10 a2)i 0 a_last(entlast)ssa(ssadd))
(while p1(setq pt(cons(cdr p1)pt)a2(cdr(member p1 a2))p1(assoc 10 a2)));while
(setq pt(reverse pt)ssa(ssadd a1 ssa))
(repeat(-(length pt)1)(setq i(1+ i))(command"break"(entlast)"non"(trans(nth i pt)0 1)(trans(nth i pt)0 1)))
(while(setq a_last(entnext a_last))(setq ssa(ssadd a_last ssa)));while
);end
;;----------------
;;;;打散多义线 ----lsx.2013.12
;调用方法:(py_ln(car(entsel)))
(defun py_ln(a1/  a2 pt b1 b210  b70 n a_last lst1 lst2 b4 ssa)
;(defun py_210(pt b210 / )(if(< b210 0)(setq pt(cons 10(list(- 0(cadr pt))(caddr pt)))))pt);
  (setq a2(entget a1)pt(assoc 10 a2)b210(last(assoc 210 a2))b70(cdr(assoc 70 a2))
b1(cdr(member pt(reverse a2)))
b1(foreach n(list(assoc 5 b1)(assoc -1 b1)(assoc 66 b1)(assoc 90 b1)(assoc 70 b1))
  (setq b1(vl-remove n b1)));foreach
b1(cons'(70 . 0)(cons(cons 90 2)b1))
i 0 lst1 nil lst2 nil ssa(ssadd));setq
  (if(< b210 0)
     (while pt(setq a2(member pt a2)a2(cdr a2)lst1(cons(cons 10(list(- 0(cadr pt))(caddr pt)))lst1)pt(assoc 10 a2))
(while(member(car(setq b4(car a2)))'( 40 41 42))(setq lst1(cons b4 lst1)a2(cdr a2)));while
(setq lst2(cons lst1 lst2)lst1 nil)
       );while
     (while pt(setq a2(member pt a2)a2(cdr a2)lst1(cons pt lst1)pt(assoc 10 a2))
(while(member(car(setq b4(car a2)))'( 40 41 42))(setq lst1(cons b4 lst1)a2(cdr a2)));while
(setq lst2(cons lst1 lst2)lst1 nil)
      );while
    );if b210
  (redraw a1 2)
  (repeat(1-(length lst2))
(entmake(reverse(append(nth i lst2)(append(nth(1+ i)lst2)b1))))
(setq ssa(ssadd(entlast)ssa)i(1+ i))
   );repeat
  (if(= b70 1)(progn
(entmake(reverse(append(reverse(cons(last(last lst2))(cdr(reverse(car lst2)))))
   (append(car lst2)  b1))))
(setq ssa(ssadd(entlast)ssa))
    ));if b70
);end

edata

2. (defun py_ln(a1/  a2 pt b1 b210  b70 n a_last lst1 lst2 b4 ssa)

(defun py_ln(a1/  a2 pt b1 b210  b70 n a_last lst1 lst2 b4 ssa)

-->

2. (defun py_ln(a1 /  a2 pt b1 b210  b70 n a_last lst1 lst2 b4 ssa)

(defun py_ln(a1 /  a2 pt b1 b210  b70 n a_last lst1 lst2 b4 ssa)

----
第一段的osmode建议改成

2. ;;;;打散多义线 ----lsx.2013.12
   
3. ;调用方法:(py_ln1(car(entsel)))
   
4. (defun py_ln1(a1 / a2 p1 pt i a_last ssa old_os)
   
5.   (setq old_os(getvar "osmode"))
   
6. (setvar "osmode" 0)
   
7. (setq a2(entget a1)p1(assoc 10 a2)i 0 a_last(entlast)ssa(ssadd))
   
8. (while p1(setq pt(cons(cdr p1)pt)a2(cdr(member p1 a2))p1(assoc 10 a2)));while
   
9. (setq pt(reverse pt)ssa(ssadd a1 ssa))
   
10. (repeat(-(length pt)1)(setq i(1+ i))(command"break"(entlast)(trans(nth i pt)0 1)(trans(nth i pt)0 1)))
    
11. (setvar "osmode" old_os)
    
12. (while(setq a_last(entnext a_last))(setq ssa(ssadd a_last ssa)));while
    
13. )

;;;;打散多义线 ----lsx.2013.12<br /> ;调用方法:(py_ln1(car(entsel)))<br /> (defun py_ln1(a1 / a2 p1 pt i a_last ssa old_os)<br />   (setq old_os(getvar "osmode")) <br /> (setvar "osmode" 0)<br /> (setq a2(entget a1)p1(assoc 10 a2)i 0 a_last(entlast)ssa(ssadd))<br /> (while p1(setq pt(cons(cdr p1)pt)a2(cdr(member p1 a2))p1(assoc 10 a2)));while<br /> (setq pt(reverse pt)ssa(ssadd a1 ssa))<br /> (repeat(-(length pt)1)(setq i(1+ i))(command"break"(entlast)(trans(nth i pt)0 1)(trans(nth i pt)0 1)))<br /> (setvar "osmode" old_os)<br /> (while(setq a_last(entnext a_last))(setq ssa(ssadd a_last ssa)));while <br /> )

关于osmode还有更好的方式一会找一下。

edata

F3捕捉点功能
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795
从对象捕捉的开和关想到的
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795