2多段线延伸相交捡懒

轮回

学习一下，，

树櫴希德

yanshengjiang 发表于 2021-11-27 02:25
请问这个和cad的倒角是不是一样的

你是对的 没有用过 chamfer 倒角命令 惭愧啊 啊 啊s

树櫴希德

重复多段线 重复表判别 73哥函数

1. (defun plinexy(e / p a b n ob q et d d1 en et)
   
2.     (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
   
3.     (cond((="LWPOLYLINE"et)
   
4.     (repeat(length a)(setq b (nth n a) n (+ n 1))
   
5.       (if (= 10 (car b))(progn
   
6.         (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
   
7.         (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
   
8.           (setq p (list q)))))))
   
9.    ((="POLYLINE"et)
   
10.     (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
    
11.     (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
    
12.       (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
    
13.       (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))(setq p(list q)))
    
14.       (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
    
15.     (setq p(reverse p))))P)
    
16. 
    
17. 
    
18. (defun lst-(l1 l2 fuz / a l)
    
19.   (while l1
    
20.       (setq a(car l1)l1(cdr l1))
    
21.       (or(vl-some(function(lambda(x)(equal a x fuz)))l2)
    
22.    (setq l(cons a l))))
    
23.       (reverse l))
    
24. 
    
25. (defun lst-1 (l1 l2 fuz / l)
    
26.   (if l2
    
27.     (progn
    
28.       (vl-every(function(lambda(a)
    
29.         (or(vl-some(function(lambda(x)(equal a x fuz)))l2)
    
30.            (setq l(cons a l)))))l1)
    
31.       (reverse l))
    
32.     l1))
    
33. 
    
34.    
    
35. 
    
36. (setq p1(lst-  (plinexy (car(entsel "\n请选择一条线："))) (plinexy (car(entsel "\n请选择另一条线："))) 0.0001 ))
    

(defun plinexy(e / p a b n ob q et d d1 en et)<br />     (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)<br />     (cond((="LWPOLYLINE"et)<br />     (repeat(length a)(setq b (nth n a) n (+ n 1))<br />       (if (= 10 (car b))(progn<br />         (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))<br />         (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))<br />           (setq p (list q)))))))<br />    ((="POLYLINE"et)<br />     (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))<br />     (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")<br />       (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))<br />       (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))(setq p(list q)))<br />       (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))<br />     (setq p(reverse p))))P)<br /> <br /> <br /> (defun lst-(l1 l2 fuz / a l)<br />   (while l1<br />       (setq a(car l1)l1(cdr l1))<br />       (or(vl-some(function(lambda(x)(equal a x fuz)))l2)<br />    (setq l(cons a l))))<br />       (reverse l))<br /> <br /> (defun lst-1 (l1 l2 fuz / l)<br />   (if l2<br />     (progn<br />       (vl-every(function(lambda(a)<br />         (or(vl-some(function(lambda(x)(equal a x fuz)))l2)<br />            (setq l(cons a l)))))l1)<br />       (reverse l))<br />     l1))<br /> <br />    <br /> <br /> (setq p1(lst-  (plinexy (car(entsel "\n请选择一条线："))) (plinexy (car(entsel "\n请选择另一条线："))) 0.0001 ))<br />

linbinfen2

多谢楼主分享