框选进行批量倒圆

dyzf1314

请问各位高手，cad的lisp能实现我的需求吗？我现在需要框选图形中的所以图形。

类似下图的图形，都是连接在一起的直线。 能实现对连接的直线批量倒圆角吗？

圆角的大小是我事先设定好的。

效果类似下图。 谢了。

应版主的要求，附上了CAD 图纸，这些直线是3维的直线，不在一个平面上。

xiaxiang

2. (defun c:dr ()
   
3.   (setq cm (getvar "cmdecho") os (getvar "osmode"))
   
4.   (setvar "cmdecho" 0)
   
5.   (prompt "选线:")
   
6.   (while (setq en (ssget '((0 . "LINE"))))
   
7.   (setq rr (getreal "\n 输入r的大小: ") aa nil)
   
8.   (setq n (sslength en) i 1 a 0 )
   
9.   (command "fillet" "r" rr )
   
10.   (while n
    
11.     (if (= i (- n 1))(setq en2 (entget (handent cc)) aa 0)
    
12.    (setq en2 (entget (ssname en a))))
    
13.     (setq p1 (cdr (assoc 10 en2)) p2 (cdr (assoc 11 en2)) cc (cdr (assoc 5 en2)) i (+ a 1) ii 1)
    
14.    (while ii
    
15.       (if (= i n)(setq ii nil n nil)
    
16.         (progn
    
17.          (setq en3 (entget (ssname en i)))
    
18.          (setq pp1 (cdr (assoc 10 en3)) pp2 (cdr (assoc 11 en3)) bb (cdr (assoc 5 en3)))
    
19.          (setq d (distance p1 pp2) d1 (distance p1 pp1) d2 (distance p2 pp2) d1 (distance p2 pp1) )
    
20.          (if (or (= d 0.0)(= d1 0.0)(= d2 0.0)(= d3 0.0))
    
21.           (progn
    
22.            (setq pp3 (polar pp1 (angle pp1 pp2) (/ (distance pp1 pp2) 2.0)))
    
23.            (setq p5 (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.0)))
    
24.            (command "fillet" pp3 p5)
    
25.            (setq  a i ii nil )
    
26.           )
    
27.           (setq i (+ i 1))
    
28.         )   ;-if d 0.0
    
29.       ))
    
30.     )   ;-ii
    
31.     (if (and (/= n nil)(= i (- n 1)))(setq a 0 i 1))
    
32.      (if (and (= aa 0)(= i (- n 1)))(setq n nil))
    
33.     )  ;-n
    
34.   )
    
35.   (setvar "cmdecho" cm)
    
36.   )

(defun c:dr ()<br />   (setq cm (getvar "cmdecho") os (getvar "osmode"))<br />   (setvar "cmdecho" 0)<br />   (prompt "选线:")<br />   (while (setq en (ssget '((0 . "LINE"))))<br />   (setq rr (getreal "\n 输入r的大小: ") aa nil)<br />   (setq n (sslength en) i 1 a 0 )<br />   (command "fillet" "r" rr )<br />   (while n<br />     (if (= i (- n 1))(setq en2 (entget (handent cc)) aa 0)<br />    (setq en2 (entget (ssname en a))))<br />     (setq p1 (cdr (assoc 10 en2)) p2 (cdr (assoc 11 en2)) cc (cdr (assoc 5 en2)) i (+ a 1) ii 1)<br />    (while ii <br />       (if (= i n)(setq ii nil n nil)<br />         (progn<br />          (setq en3 (entget (ssname en i)))<br />          (setq pp1 (cdr (assoc 10 en3)) pp2 (cdr (assoc 11 en3)) bb (cdr (assoc 5 en3)))<br />          (setq d (distance p1 pp2) d1 (distance p1 pp1) d2 (distance p2 pp2) d1 (distance p2 pp1) )<br />          (if (or (= d 0.0)(= d1 0.0)(= d2 0.0)(= d3 0.0))<br />           (progn<br />            (setq pp3 (polar pp1 (angle pp1 pp2) (/ (distance pp1 pp2) 2.0)))<br />            (setq p5 (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.0)))<br />            (command "fillet" pp3 p5)<br />            (setq  a i ii nil )<br />           )<br />           (setq i (+ i 1))<br />         )   ;-if d 0.0<br />       ))<br />     )   ;-ii<br />     (if (and (/= n nil)(= i (- n 1)))(setq a 0 i 1))<br />      (if (and (= aa 0)(= i (- n 1)))(setq n nil))<br />     )  ;-n<br />   )<br />   (setvar "cmdecho" cm)<br />   )

dyzf1314

xiaxiang 发表于 2012-4-23 14:07

感谢xiaxiang，但我加载了这个lisp后不能实现啊，能帮忙看下是怎么回事不？

我是框选了所以的线条，然后输入了圆角的大小

CAD提示我：Select second object or shift-select to apply corner:

我就选择了其中一条线，但只能倒一个圆角啊。

请问怎么操作啊？

dyzf1314

Command里面显示是这样的：

Command: dr
选线:
Select objects: Specify opposite corner: 3 found

Select objects:

输入r的大小: 2
Unknown command "DR".  Press F1 for help.


*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/Fence/WPolygon/CPolygon
; error: Function cancelled

Select second object or shift-select to apply corner:

xiaxiang

dyzf1314 发表于 2012-4-23 14:31
Command里面显示是这样的：

Command: dr

你用的什么版本cad，刚那个程序有点错误，更新了一下，你再试试一楼程序。
我这边08，提示的是
命令: dr
选线:
选择对象: 指定对角点: 找到 4 个
选择对象:
输入r的大小: 6
貌似没有什么问题。

xiaxiang

依楼主附图来看
可以试一下如下代码

2. 
   
3. (defun c:xlx()
   
4.   (setq r (getreal "\n半径："))
   
5.   (setvar "filletrad" r)
   
6.   (setq ss (ssget '((0 . "line"))))
   
7.   (setq pt_list nil)
   
8.   (setq i 0)
   
9.   (repeat (sslength ss)
   
10.     (sub_test1 (ssname ss i))
    
11.     (setq i (1+ i))
    
12.     )
    
13.   (foreach pt pt_list
    
14.     (progn
    
15.       (setq ss2 (ssget "c" pt pt))
    
16.         (setq en1 (ssname ss2 0))
    
17.     (setq en2 (ssname ss2 1))
    
18.         (command "fillet" en1 en2)
    
19.       )
    
20.     )
    
21.   (prompt "<<xlx>>相连线批量倒角")
    
22.   )
    
23.   (defun sub_test1 (#en)
    
24.     (setq endata (entget #en))
    
25.     (setq pt10 (cdr (assoc 10 endata)))
    
26.     (setq pt11 (cdr (assoc 11 endata)))
    
27.     (setq ssint (ssget "f" (list pt10 pt11)))
    
28.     (setq ssint (ssdel #en ssint))
    
29.     (if (> (sslength ssint) 0)
    
30.       (progn
    
31.     (setq j 0)
    
32.     (repeat (sslength ssint)
    
33.       (setq ena (ssname ssint j))
    
34.       (if (ssmemb ena ss)
    
35.         (progn
    
36.           (setq pta (cdr(assoc 10 (entget ena))))
    
37.           (setq ptb (cdr(assoc 11 (entget ena))))
    
38.           (setq intpt (inters pt10 pt11 pta ptb))
    
39.           (setq intpt1 (osnap intpt "int"))
    
40.           (if (not (member intpt1 pt_list))(setq pt_list (cons intpt1 pt_list)))
    
41.           )
    
42.         )
    
43.       (setq j (1+ j))
    
44.       )
    
45.     )
    
46.       )
    
47.     )

<br /> (defun c:xlx()<br />   (setq r (getreal "\n半径：")) <br />   (setvar "filletrad" r)<br />   (setq ss (ssget '((0 . "line"))))<br />   (setq pt_list nil)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (sub_test1 (ssname ss i))<br />     (setq i (1+ i))<br />     )<br />   (foreach pt pt_list<br />     (progn<br />       (setq ss2 (ssget "c" pt pt))<br />         (setq en1 (ssname ss2 0))<br />     (setq en2 (ssname ss2 1))<br />         (command "fillet" en1 en2)<br />       )<br />     )<br />   (prompt "<<xlx>>相连线批量倒角")<br />   )<br />   (defun sub_test1 (#en)<br />     (setq endata (entget #en))<br />     (setq pt10 (cdr (assoc 10 endata)))<br />     (setq pt11 (cdr (assoc 11 endata)))<br />     (setq ssint (ssget "f" (list pt10 pt11)))<br />     (setq ssint (ssdel #en ssint))<br />     (if (> (sslength ssint) 0)<br />       (progn<br />     (setq j 0)<br />     (repeat (sslength ssint)<br />       (setq ena (ssname ssint j))<br />       (if (ssmemb ena ss)<br />         (progn<br />           (setq pta (cdr(assoc 10 (entget ena))))<br />           (setq ptb (cdr(assoc 11 (entget ena))))<br />           (setq intpt (inters pt10 pt11 pta ptb))<br />           (setq intpt1 (osnap intpt "int"))<br />           (if (not (member intpt1 pt_list))(setq pt_list (cons intpt1 pt_list)))<br />           )<br />         )<br />       (setq j (1+ j))<br />       )<br />     )<br />       )<br />     )

dyzf1314

xiaxiang 发表于 2012-4-23 15:45
依楼主附图来看
可以试一下如下代码

试了下最新的，可以了，非常感谢版主的无私的回复。

【KAIXIN】

xiaxiang 发表于 2012-4-23 15:45
依楼主附图来看
可以试一下如下代码

程序没有问题，应该是CAD的问题....

vlisp2012

多谢开心了。

【KAIXIN】

vlisp2012 发表于 2012-4-23 19:34
多谢开心了。

怎么是多谢我呢？