Andyhon 发表于 2012-5-18 10:55 static/image/common/back.gif
蛮好用的，非常感谢
学习了，厉害
这个功能很实用，期待高手完善，
这个功能...完善
要添加或修订那些才合乎 功能完善
;;;;连线批量倒圆角
(defun c:fr()
(print "<连线批量倒圆角>功能已开启")
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq rr (getreal "\n请输入半径: ") aa nil)
(while (setq en (ssget '((0 . "LINE"))))
(setq n (sslength en) i 1 a 0 )
(command "fillet" "r" rr "")
(while n
(if (= i (- n 1))(setq en2 (entget (handent cc)) aa 0)
(setq en2 (entget (ssname en a))))
(setq p1 (cdr (assoc 10 en2)) p2 (cdr (assoc 11 en2)) cc (cdr (assoc 5 en2)) i (+ a 1) ii 1)
(while ii
(if (= i n)(setq ii nil n nil)
(progn
(setq en3 (entget (ssname en i)))
(setq pp1 (cdr (assoc 10 en3)) pp2 (cdr (assoc 11 en3)) bb (cdr (assoc 5 en3)))
(setq d (distance p1 pp2) d1 (distance p1 pp1) d2 (distance p2 pp2) d1 (distance p2
pp1) )
(if (or (= d 0.0)(= d1 0.0)(= d2 0.0)(= d3 0.0))
(progn
(setq pp3 (polar pp1 (angle pp1 pp2) (/ (distance pp1 pp2) 2.0)))
(setq p5 (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.0)))
(command "fillet" pp3 p5)
(setqa i ii nil )
)
(setq i (+ i 1))
) ;-if d 0.0
))
) ;-ii
(if (and (/= n nil)(= i (- n 1)))(setq a 0 i 1))
(if (and (= aa 0)(= i (- n 1)))(setq n nil))
);-n
)
(setvar "cmdecho" 1)
(setvar "osmode" 15359)
(princ)
)
Andyhon 发表于 2012-5-18 10:55 static/image/common/back.gif
很好用！
下载收藏了。
谢谢Andyhon ！
这个功能很实用，期待高手完善
留个脚印在这里
学习了，厉害
aaacjh 发表于 2012-5-18 20:59 static/image/common/back.gif
运行老出现：错误: no function definition: ACET-GEOM-SS-EXTENTS
不知是什么问题？
我也是同样问题：错误: no function definition: ACET-GEOM-SS-EXTENTS