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

【KAIXIN】

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

下图是:效果图



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



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

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轴坐标进行排序，这样就完成了分组与排序，而且还方便求出直线之间的距离，倒角大小还渐增大时这个距离就有用了，然后根据指定倒角大小，大小是否渐变对应倒角即可。

maxli

虽然我还不会写。但是跟据你的图例应该如下：
1：框选+判断
2：圆角的应该是像批量偏移才对。
3：批量偏移完成后。像圆角太小的是不可能倒的出来的。和你线的层板有关联。这个位置要给个提示之类的。
水平有限，见谅

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里有一个倒角的参数)
完工。。好累。。