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

云中孤鹰

新手过来学习学习

461045462

根据楼主的图形
是否请试试：
1.框选批量连接线条(注意间隔）
2. 框选批量倒角

Atsai

1.框右下、左上二点，由二点另外计算出选择二组线的四个点，
  作为ssget f来使用。有二个选集ss1(右下点->左下点)物件数M及ss2(右下点->右上点)物件数N。
2.ssget f选择时已有方向，这时选完的物件顺序ss1与ss2已有相对应的顺序。
3.输入需要的第一组线倒圆角半径 R1。
4.比较物件数MIN(M,N)做为重复的次数。
5.分别重复计算ss1、ss2的第一条与第二条直线的间距，X1、Y1及第二条与第三条直线间距X2、Y2
  依此类推。
6.用fillet执行第一组线，倒圆角半径R1，连接成多义线，第二组线倒圆角半径R2=R1+MIN(X1,Y1)
  或R2=R1+MAX(X1,Y1)依个人需求决定。 用fillet执行第二组线，倒圆角半径R2连接成多义线。
  ...依此类推。

荒野孤行

通过栏选的方式，分两组，进行倒角。我已经发过程序了。可以搜索下。

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 />

【KAIXIN】

荒野孤行

荒野孤行 发表于 2013-9-16 07:41
通过栏选的方式，分两组，进行倒角。我已经发过程序了。可以搜索下。

是不是要这种效果？我只做出来了相交直线倒圆角，不想交的还在思考怎么做。

llsheng_73

一次性全选，
把顶点数多于2个的作为依据，按其余线到它的距离排序
把距离大致相同（图上看是象是相同）的求交点p，再按设定的倒角大小（或者用第一根线的倒角）计算它们的端点p1和p2，这样算出来的点都应该在线外，用计算出的点求它到所涉及到的这两根线的最近点p1-1和P2-1(其实就是它的端点之一)可以确定各自对应哪一根线
接下来把其对应的端点换成p1,p2加上线段原来的端点重新绘制，删掉这两根线(也可以往其中一条线中加入P1,P2及另一条线的端点，这样可以只删除一条线和修改一条线)

fire9527

fl202 发表于 2013-9-16 14:23
写的长了点，思路：根据是否相交分成两个选择集ss2、ss3（根据角度也行，同一个选择集如ss2内稍微不平行的线 ...

老大，我怎么用不起啊？  (5 5) ; 错误: 参数类型错误: 二维/三维点: nil

panliang9

这两天正需要这个，进来研究下！