批量倒角的各种思路，（用心回帖奖币）

【KAIXIN】

就下图为例子:批量直线一对一的进行倒角

下图是:效果图



欢迎大家说说你要操作这个例子的思路方法！



该贴已经同步到 【KAIXIN】的微博

fl202

写的长了点，思路：根据是否相交分成两个选择集ss2、ss3（根据角度也行，同一个选择集如ss2内稍微不平行的线判断角度就比较麻烦，还是判断交点好些），然后排序，然后倒角。

2.     (defun midpt (ptx pty / pt)
   
3.     (setq pt (list (/ (+ (nth 0 ptx) (nth 0 pty)) 2)  
   
4.                       (/ (+ (nth 1 ptx) (nth 1 pty)) 2)  ) )
   
5.         pt
   
6.        )
   
7.    (princ "\n 请选择2组平行直线")
   
8.    ;(if
   
9.    (setq ss1 nil ss1 (ssget (list (cons 0 "LINE"))))
   
10.        ;(progn
    
11.         (setq data1 (entget (ssname ss1 0)))
    
12.            (setq px1 (cdr (assoc 10 data1)) py1 (cdr (assoc 11 data1)) )
    
13.            (setq ang1 (angle px1 py1) ang2 (+ ang1 pi) ang3 (+ ang1 (/ pi 2)) )
    
14.            (setq pt1 (midpt px1 py1))
    
15.            (setq pt2 (polar pt1 ang3 (* 100 (distance px1 py1)) )  pt5 (polar pt1 (+ ang3 pi) (* 100 (distance px1 py1)) )   )   
    
16.          (setq b2 '() b3 '()  i 0 ss2 nil ss3 nil ss2 (ssadd) ss3 (ssadd)  )
    
17.    (repeat (sslength ss1)
    
18.        (setq en1 (ssname ss1 i))
    
19.        (setq data1 (entget en1)  px1 (cdr (assoc 10 data1)) py1 (cdr (assoc 11 data1)) ang4 (angle px1 py1) )
    
20.        (setq pt3 (polar pt2 (+ ang4 (/ pi 2)) 100) )
    
21.        (setq pt4 (inters px1 py1 pt2 pt3 nil) d1 (distance pt2 pt4)) ;;;(print (list  px1 py1 pt2 pt5 (inters px1 py1 pt2 pt5)))
    
22.        (if (inters px1 py1 pt2 pt5)
    
23.        (setq b2 (cons (list d1 en1) b2))
    
24.        (setq b3 (cons (list d1 en1) b3))  )
    
25.        (setq i (1+ i))
    
26.        )
    
27.        (print (list (length b2) (length b3) ))
    
28.     (setq b2 (vl-sort b2  (function (lambda (e1 e2)  (< (car e1) (car e2)) ) ) )  )
    
29.     (setq b3 (vl-sort b3  (function (lambda (e1 e2)  (< (car e1) (car e2)) ) ) )  )
    
30.    
    
31.     (setq en1 (nth 1 (nth 0 b3)))
    
32.     (setq px1 (cdr (assoc 10 (entget en1))) py1 (cdr (assoc 11 (entget en1))) )
    
33.     (setq pt1 (midpt px1 py1))
    
34.     (setq en2 (nth 1 (nth 0 b2)) en3 (nth 1 (nth 1 b2)) )
    
35.     (setq ptx2 (cdr (assoc 10 (entget en2))) ptx3 (cdr (assoc 10 (entget en3)))
    
36.           pty2 (cdr (assoc 11 (entget en2))) pty3 (cdr (assoc 11 (entget en3)))  
    
37.           d1 (distance pt1 (inters px1 px2 ptx2 pty2 nil ))  d2 (distance pt1 (inters px1 px2 ptx3 pty3 nil ))  )
    
38.     (if (> d1 d2)
    
39.       (setq b2 (vl-sort b2  (function (lambda (e1 e2)  (> (car e1) (car e2)) ) ) )  )
    
40.       (princ)
    
41.       )
    
42.       
    
43.     (setq n 0)
    
44.     (repeat (length b2)
    
45.     (setq en1 (nth 1 (nth n b2)))
    
46.     (setq ss2 (ssadd en1 ss2))
    
47.     (setq n (1+ n))
    
48.     )
    
49.       (setq n 0)
    
50.     (repeat (length b3)
    
51.     (setq en1 (nth 1 (nth n b3)))
    
52.     (setq ss3 (ssadd en1 ss3))
    
53.     (setq n (1+ n))
    
54.     )   
    
55.     (command "chprop" ss2 "" "c" 6 "")   
    
56.     (setq i 0 r1 50)
    
57.     (setq os1 (getvar "osmode"))
    
58.     (setvar "osmode" 0)
    
59.      (command "fillet" "r" r1)
    
60.     (repeat (min (sslength ss2) (sslength ss3))
    
61.       (setq en1 (ssname ss2 i) en2 (ssname ss3 i) data1 (entget en1) data2 (entget en2) )
    
62.       (setq px1 (cdr (assoc 10 data1))  py1 (cdr (assoc 11 data1))  )
    
63.       (setq pt1 (midpt px1 py1))
    
64.       (setq px1 (cdr (assoc 10 data2))  py1 (cdr (assoc 11 data2))  )
    
65.       (setq pt2 (midpt px1 py1))
    
66.       (command "fillet"  (list en1 pt1) (list en2 pt2) )
    
67.       (setq i (1+ i))
    
68.       )   
    
69.     (setvar "osmode" os1)
    

    (defun midpt (ptx pty / pt)<br />     (setq pt (list (/ (+ (nth 0 ptx) (nth 0 pty)) 2)  <br />                       (/ (+ (nth 1 ptx) (nth 1 pty)) 2)  ) )<br />         pt<br />        )<br />    (princ "\n 请选择2组平行直线")<br />    ;(if <br />    (setq ss1 nil ss1 (ssget (list (cons 0 "LINE"))))<br />        ;(progn<br />         (setq data1 (entget (ssname ss1 0)))<br />            (setq px1 (cdr (assoc 10 data1)) py1 (cdr (assoc 11 data1)) )<br />            (setq ang1 (angle px1 py1) ang2 (+ ang1 pi) ang3 (+ ang1 (/ pi 2)) )<br />            (setq pt1 (midpt px1 py1))<br />            (setq pt2 (polar pt1 ang3 (* 100 (distance px1 py1)) )  pt5 (polar pt1 (+ ang3 pi) (* 100 (distance px1 py1)) )   )    <br />          (setq b2 '() b3 '()  i 0 ss2 nil ss3 nil ss2 (ssadd) ss3 (ssadd)  )<br />    (repeat (sslength ss1)<br />        (setq en1 (ssname ss1 i))<br />        (setq data1 (entget en1)  px1 (cdr (assoc 10 data1)) py1 (cdr (assoc 11 data1)) ang4 (angle px1 py1) )<br />        (setq pt3 (polar pt2 (+ ang4 (/ pi 2)) 100) ) <br />        (setq pt4 (inters px1 py1 pt2 pt3 nil) d1 (distance pt2 pt4)) ;;;(print (list  px1 py1 pt2 pt5 (inters px1 py1 pt2 pt5)))<br />        (if (inters px1 py1 pt2 pt5)<br />        (setq b2 (cons (list d1 en1) b2))<br />        (setq b3 (cons (list d1 en1) b3))  )<br />        (setq i (1+ i))<br />        )<br />        (print (list (length b2) (length b3) ))<br />     (setq b2 (vl-sort b2  (function (lambda (e1 e2)  (< (car e1) (car e2)) ) ) )  )<br />     (setq b3 (vl-sort b3  (function (lambda (e1 e2)  (< (car e1) (car e2)) ) ) )  )<br />     <br />     (setq en1 (nth 1 (nth 0 b3)))<br />     (setq px1 (cdr (assoc 10 (entget en1))) py1 (cdr (assoc 11 (entget en1))) )<br />     (setq pt1 (midpt px1 py1))<br />     (setq en2 (nth 1 (nth 0 b2)) en3 (nth 1 (nth 1 b2)) )<br />     (setq ptx2 (cdr (assoc 10 (entget en2))) ptx3 (cdr (assoc 10 (entget en3))) <br />           pty2 (cdr (assoc 11 (entget en2))) pty3 (cdr (assoc 11 (entget en3)))  <br />           d1 (distance pt1 (inters px1 px2 ptx2 pty2 nil ))  d2 (distance pt1 (inters px1 px2 ptx3 pty3 nil ))  )<br />     (if (> d1 d2)<br />       (setq b2 (vl-sort b2  (function (lambda (e1 e2)  (> (car e1) (car e2)) ) ) )  )<br />       (princ)<br />       )<br />       <br />     (setq n 0)<br />     (repeat (length b2)<br />     (setq en1 (nth 1 (nth n b2))) <br />     (setq ss2 (ssadd en1 ss2))<br />     (setq n (1+ n))<br />     )<br />       (setq n 0)<br />     (repeat (length b3)<br />     (setq en1 (nth 1 (nth n b3)))<br />     (setq ss3 (ssadd en1 ss3))<br />     (setq n (1+ n))<br />     )   <br />     (command "chprop" ss2 "" "c" 6 "")   <br />     (setq i 0 r1 50)<br />     (setq os1 (getvar "osmode"))<br />     (setvar "osmode" 0)<br />      (command "fillet" "r" r1)<br />     (repeat (min (sslength ss2) (sslength ss3))<br />       (setq en1 (ssname ss2 i) en2 (ssname ss3 i) data1 (entget en1) data2 (entget en2) )<br />       (setq px1 (cdr (assoc 10 data1))  py1 (cdr (assoc 11 data1))  )<br />       (setq pt1 (midpt px1 py1))<br />       (setq px1 (cdr (assoc 10 data2))  py1 (cdr (assoc 11 data2))  )<br />       (setq pt2 (midpt px1 py1))<br />       (command "fillet"  (list en1 pt1) (list en2 pt2) )<br />       (setq i (1+ i))<br />       )   <br />     (setvar "osmode" os1)<br />

waterchen

原来还有这么多人也究研这个的。1.框选不同角度的2组线；
2.按角度值分组，前面黄工的程序要注意(rem ang (/ pi 2))，135/90余45，225/90同样余45，但这是2条不同角度的线，还有互为180度的线应视为同组线，0度与接近360度的视为同组线，当然要处理这样的线条为同方向；
3.用鼠标的即时坐标作参考点对分组的线条排序；
4.鼠标的即时坐标参考点在2组线条的相对位置，从而确定2组线条是把StartPoint还是endPoint移至交点上。至于如果确定鼠标的即时坐标参考点在2组线条的相对位置大家可以参考“【越飞越高讲堂16】CAD 的坐标系统和trans函数的工作原理”最后那段。

namezg

一次选择,根据角度分成两组,分别取两组直线与其垂线的虚交点，如果分组直线角度不为0则按虚交点x坐标进行排序，如果某一组直线角度为0,则按虚交点的y轴坐标进行排序，这样就完成了分组与排序，而且还方便求出直线之间的距离，倒角大小还渐增大时这个距离就有用了，然后根据指定倒角大小，大小是否渐变对应倒角即可。

CTC

好像G版有一个吧

自贡黄明儒

1 先判断线的位置，分成两组
2 然后依次从两组中取线，并判断那一个点离虚交点近，然后倒角
A 分组

1. ;;1 对象分组,返回组列表
   
2. (defun ss:group (ss / ANG ANG1 ANG2 GETENDPOINT GROUP1 GROUP2 OBJ PARAM STARTPOINT)
   
3.   (setq obj (ssname ss 0))
   
4.   (SsDel obj SS)
   
5.   (setq StartPoint (vlax-curve-getStartPoint obj))
   
6.   (setq getEndPoint (vlax-curve-getEndPoint obj))
   
7.   (setq param (vlax-curve-getStartParam obj))
   
8.   ;;起点切线方向的角度值
   
9.   (setq ang (angle StartPoint
   
10.                    (mapcar '+ StartPoint (vlax-curve-getFirstDeriv obj param))
    
11.             )
    
12.   )
    
13.   (setq ang1 (rem ang (/ pi 2)))
    
14.   (setq group1 (cons obj group1))
    
15. 
    
16.   (repeat (sslength ss)
    
17.     (setq obj (ssname ss 0))
    
18.     (SsDel obj SS)
    
19.     (setq StartPoint (vlax-curve-getStartPoint obj))
    
20.     (setq getEndPoint (vlax-curve-getEndPoint obj))
    
21.     (setq param (vlax-curve-getStartParam obj))
    
22.     ;;起点切线方向的角度值
    
23.     (setq ang (angle StartPoint
    
24.                      (mapcar '+ StartPoint (vlax-curve-getFirstDeriv obj param))
    
25.               )
    
26.     )
    
27.     (setq ang2 (rem ang (/ pi 2)))
    
28. 
    
29.     (if (equal ang1 ang2 0.1)
    
30.       (setq group1 (cons obj group1))
    
31.       (setq group2 (cons obj group2))
    
32.     )
    
33.   )
    
34. 
    
35.   (list group1 group2)
    
36. )
    
37. 
    

;;1 对象分组,返回组列表<br /> (defun ss:group (ss / ANG ANG1 ANG2 GETENDPOINT GROUP1 GROUP2 OBJ PARAM STARTPOINT)<br />   (setq obj (ssname ss 0))<br />   (SsDel obj SS)<br />   (setq StartPoint (vlax-curve-getStartPoint obj))<br />   (setq getEndPoint (vlax-curve-getEndPoint obj))<br />   (setq param (vlax-curve-getStartParam obj))<br />   ;;起点切线方向的角度值<br />   (setq ang (angle StartPoint<br />                    (mapcar '+ StartPoint (vlax-curve-getFirstDeriv obj param))<br />             )<br />   )<br />   (setq ang1 (rem ang (/ pi 2)))<br />   (setq group1 (cons obj group1))<br /> <br />   (repeat (sslength ss)<br />     (setq obj (ssname ss 0))<br />     (SsDel obj SS)<br />     (setq StartPoint (vlax-curve-getStartPoint obj))<br />     (setq getEndPoint (vlax-curve-getEndPoint obj))<br />     (setq param (vlax-curve-getStartParam obj))<br />     ;;起点切线方向的角度值<br />     (setq ang (angle StartPoint<br />                      (mapcar '+ StartPoint (vlax-curve-getFirstDeriv obj param))<br />               )<br />     )<br />     (setq ang2 (rem ang (/ pi 2)))<br /> <br />     (if (equal ang1 ang2 0.1)<br />       (setq group1 (cons obj group1))<br />       (setq group2 (cons obj group2))<br />     )<br />   )<br /> <br />   (list group1 group2)<br /> )<br /> <br />

B 组排序

1. ;;2 排序
   
2. (defun sortObjects (lst / LST1 MINPT N OBJ)
   
3.   ;;2.1  获取对象的外边框
   
4.   (defun HH:MinMaxPt (ent / MinPt MaxPt)
   
5.     (vla-GetBoundingBox
   
6.       (vlax-Ename->vla-Object ent)
   
7.       'MinPt
   
8.       'MaxPt
   
9.     )
   
10.     (mapcar 'vlax-safearray->list (list MinPt MaxPt))
    
11.   )
    
12.   ;;2.2  点表排序
    
13.   (defun Sort_pList (PLIST / p1 p2)
    
14.     (vl-sort plist
    
15.              '(lambda (p1 p2)
    
16.                 (cond ((< (car (car p1)) (car (car p2))) T)
    
17.                       ((and (= (car (car p1)) (car (car p2)))
    
18.                             (< (cadr (car p1)) (cadr (car p2)))
    
19.                        )
    
20.                        T
    
21.                       )
    
22.                       (T nil)
    
23.                 )
    
24.               )
    
25.     )
    
26.   )
    
27.   ;;2.3 列表排序
    
28.   (repeat (setq n (length lst))
    
29.     (setq obj (nth (setq n (1- n)) lst))
    
30.     (setq MinPt (car (HH:MinMaxPt obj)))
    
31.     (setq obj (list MinPt obj))
    
32.     (setq lst1 (cons obj lst1))
    
33.   )
    
34.   (Sort_pList lst1)
    
35. )
    
36. 
    

;;2 排序<br /> (defun sortObjects (lst / LST1 MINPT N OBJ)<br />   ;;2.1  获取对象的外边框 <br />   (defun HH:MinMaxPt (ent / MinPt MaxPt)<br />     (vla-GetBoundingBox<br />       (vlax-Ename->vla-Object ent)<br />       'MinPt<br />       'MaxPt<br />     )<br />     (mapcar 'vlax-safearray->list (list MinPt MaxPt))<br />   )<br />   ;;2.2  点表排序<br />   (defun Sort_pList (PLIST / p1 p2)<br />     (vl-sort plist<br />              '(lambda (p1 p2)<br />                 (cond ((< (car (car p1)) (car (car p2))) T)<br />                       ((and (= (car (car p1)) (car (car p2)))<br />                             (< (cadr (car p1)) (cadr (car p2)))<br />                        )<br />                        T<br />                       )<br />                       (T nil)<br />                 )<br />               )<br />     )<br />   )<br />   ;;2.3 列表排序<br />   (repeat (setq n (length lst))<br />     (setq obj (nth (setq n (1- n)) lst))<br />     (setq MinPt (car (HH:MinMaxPt obj)))<br />     (setq obj (list MinPt obj))<br />     (setq lst1 (cons obj lst1))<br />   )<br />   (Sort_pList lst1)<br /> )<br /> <br />

C 第一组的第一根线与第二组的第一根线和最后一根线比较，决定第二组是否需要倒序
D 两线倒角时，是以起点还是终点处倒角

完整武器

开心版主在集各家所长

xiaxiang

管道布线专业的程序，3D的，比这要复杂得多，而且肯定是付费程序。
依例图来看，一次性选中所有直线依据旋转角度不同分成两组，再对每组直线依据起始点坐标分别排序直线，生成排序后的两组实体列表，依次取出倒角。

xiaxiang

不是付费程序最好，不然别人不会轻易给出源码！
你把例图给出，情况有多少种，程序自然就可以写出来了。
如果仅仅是两组等长的直线，可能要简单很多。

陨落

特殊情况，好做：不用分组，建立一个选择集，依次判断每根线与其它线的交点是否在虚交点连线上，是的时候对这两根线进行倒角
倒角完毕后将这两条线从选择集中移除
不知道行不行

cable2004

分两次ssget ，然后排序，再倒角！

springwillow

编这个的难点在于怎么选中和其对应的那一条线，然后进行倒角。估计得首先按照坐标和角度对两组线分别进行排序，然后按顺序逐个进行倒角。

logoin

让我想想...
1.输入四个点，两个点用于选择第一组线，两个点用于选择另一组线
2.分两次用  ssget f 选中两组线
3.前两个点创建一条线，后两个点创建一条线
4.用对象数少的一组线的数目作为循环数
5.两组依次取出一个，与刚才画的线求交点，判断交点，起始点，两线虚交点的位置关系，修改起始点的位置达到两线连在一起，加入新选择集
6.完成后用选择集的线聚合连接成多义线(pedit  pedit里有一个倒角的参数)
完工。。好累。。