有什么办法让多段线在转折处自动打断？

lxdz443

有没有办法在画多段线的时候在转角处自动打断为两段。

Linhay

直接用line画不好吗?

donghuidong2003

简单，用炸开就行了呀

llsheng_73

donghuidong2003 发表于 2015-11-12 12:45
简单，用炸开就行了呀

人家是说的要这样画，没准如果连续三点共直线的不需要炸开
也许最后还根据是多段线而不是直线。。。

llsheng_73

1. (defun c:tt(/ p p1 p2)
   
2.   (if(setq p(getpoint"第一点"))
   
3.     (if(setq p1(getpoint p))
   
4.       (progn
   
5. (command"pline"p p1)
   
6. (while(setq p2(getpoint p1))
   
7.    (if(equal(angle p1 p)(angle p2 p1))
   
8.      (command(setq p p1 p1 p2))
   
9.      (command """pline"(setq p p1)(setq p1 p2))))
   
10. (command"")))))

(defun c:tt(/ p p1 p2)<br />   (if(setq p(getpoint"第一点"))<br />     (if(setq p1(getpoint p))<br />       (progn<br /> (command"pline"p p1)<br /> (while(setq p2(getpoint p1))<br />    (if(equal(angle p1 p)(angle p2 p1))<br />      (command(setq p p1 p1 p2))<br />      (command """pline"(setq p p1)(setq p1 p2))))<br /> (command"")))))

819534890

1. ;多段线(LWPOLYLINE)折点打断
   
2. (defun c:dbreak(/ ee e x vex vex2 ppp pv i)
   
3. (setvar "OSMODE" 0)
   
4. (setvar "CMDECHO" 0)
   
5. (setq e (car (entsel "请选择多义线")))
   
6. (setq vex (vl-remove-if-not '(lambda(x) (= (car x) 10)) (entget e)))
   
7. (if (< (length vex) 3)
   
8. (princ "\n请选择多于2个顶点的多义线\n")
   
9. (progn
   
10. (foreach pv vex
    
11. (setq ppp (cons (cdr pv) ppp) )
    
12. )
    
13. (setq vex (reverse ppp))
    
14. (setq vex (cdr vex))
    
15. (setq vex (reverse (cdr (reverse vex))))
    
16. (setq i 0)
    
17. (repeat (length vex)
    
18. (setq pv (nth i vex))
    
19. (command "_break" e pv pv)
    
20. (setq ee (entlast))
    
21. (setq vex2 (vl-remove-if-not '(lambda(x) (= (car x) 10)) (entget ee)))
    
22. (if (> (length vex2) 2) (setq e ee))
    
23. (setq i (1+ i))
    
24. )
    
25. )
    
26. )
    
27. (princ)
    
28. )

;多段线(LWPOLYLINE)折点打断<br /> (defun c:dbreak(/ ee e x vex vex2 ppp pv i)<br /> (setvar "OSMODE" 0)<br /> (setvar "CMDECHO" 0)<br /> (setq e (car (entsel "请选择多义线")))<br /> (setq vex (vl-remove-if-not '(lambda(x) (= (car x) 10)) (entget e)))<br /> (if (< (length vex) 3)<br /> (princ "\n请选择多于2个顶点的多义线\n")<br /> (progn <br /> (foreach pv vex<br /> (setq ppp (cons (cdr pv) ppp) )<br /> )<br /> (setq vex (reverse ppp))<br /> (setq vex (cdr vex))<br /> (setq vex (reverse (cdr (reverse vex))))<br /> (setq i 0)<br /> (repeat (length vex)<br /> (setq pv (nth i vex))<br /> (command "_break" e pv pv)<br /> (setq ee (entlast))<br /> (setq vex2 (vl-remove-if-not '(lambda(x) (= (car x) 10)) (entget ee)))<br /> (if (> (length vex2) 2) (setq e ee))<br /> (setq i (1+ i))<br /> )<br /> )<br /> )<br /> (princ)<br /> )

lxdz443

谢谢大家，用llsheng_73的程序完美解决，819534890的程序二次修改用起来也很爽。另外请教一下大家，你们是怎么学习的，我特意买了本书，看了两个月了，还是不得要领。