[其他]：临时写的Line批量Fillet或Chamfer

eachy

2. 
   
3. (defun c:tt (/ ss ssl n m sp ep e e1 sp1 ep1 el el1)
   
4.   (if (setq ss (ssget '((0 . "line"))))
   
5.     (progn
   
6.       (setq ssl        (sslength ss)
   
7.             n        -1
   
8.       )
   
9.       (while (< n (1- ssl))
   
10.         (setq e         (ssname ss (setq n (1+ n)))
    
11.               el (entget e)
    
12.               sp (cdr (assoc 10 el))
    
13.               ep (cdr (assoc 11 el))
    
14.               m         n
    
15.         )
    
16.         (while (< m (1- ssl))
    
17.           (setq        e1  (ssname ss (setq m (1+ m)))
    
18.                 el1 (entget e1)
    
19.                 sp1 (cdr (assoc 10 el1))
    
20.                 ep1 (cdr (assoc 11 el1))
    
21.           )
    
22.           (if (inters sp ep sp1 ep1)
    
23.             (vl-cmdf ".fillet"  e e1)
    
24.             ;;(vl-cmdf ".chamfer" e e1)
    
25.           )
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    

<br /> (defun c:tt (/ ss ssl n m sp ep e e1 sp1 ep1 el el1)<br />   (if (setq ss (ssget '((0 . "line"))))<br />     (progn<br />       (setq ssl        (sslength ss)<br />             n        -1<br />       )<br />       (while (< n (1- ssl))<br />         (setq e         (ssname ss (setq n (1+ n)))<br />               el (entget e)<br />               sp (cdr (assoc 10 el))<br />               ep (cdr (assoc 11 el))<br />               m         n<br />         )<br />         (while (< m (1- ssl))<br />           (setq        e1  (ssname ss (setq m (1+ m)))<br />                 el1 (entget e1)<br />                 sp1 (cdr (assoc 10 el1))<br />                 ep1 (cdr (assoc 11 el1))<br />           )<br />           (if (inters sp ep sp1 ep1)<br />             (vl-cmdf ".fillet"  e e1)<br />             ;;(vl-cmdf ".chamfer" e e1)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

狂刀

好像少一点规律性，用在什么地方？

eachy

最初由 狂刀 发布
[B]好像少一点规律性，用在什么地方？ [/B]

呵呵，你可能用不到，图示中的线是道路红线或者道路边线

wkai

挺好用，建议加上一句(setvar "FILLETRAD" (getreal "\n导角半径："))