实现框选一次性倒R角

illcyt · 发表于 2012-6-15 12:30:01

Andyhon 发表于 2012-5-18 10:55

蛮好用的，非常感谢

tianya_608 · 发表于 2012-6-16 16:51:21

学习了，厉害

zhaozwf · 发表于 2012-7-12 10:39:07

这个功能很实用，期待高手完善，

Andyhon · 发表于 2012-7-12 11:17:23

这个功能...完善

要添加或修订那些才合乎功能完善

aaacjh · 发表于 2012-7-22 13:55:08

;;;;连线批量倒圆角
(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)
         (setq  a 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)
)

461045462 · 发表于 2012-7-22 20:35:16

Andyhon 发表于 2012-5-18 10:55

很好用！
下载收藏了。
谢谢Andyhon ！

yaokui25 · 发表于 2012-12-9 21:36:35

这个功能很实用，期待高手完善

戏男 · 发表于 2012-12-11 08:37:43

留个脚印在这里

康美欣 · 发表于 2012-12-18 20:39:39

学习了，厉害

ucuc2003 · 发表于 2012-12-20 22:45:36

aaacjh 发表于 2012-5-18 20:59
运行老出现：错误: no function definition: ACET-GEOM-SS-EXTENTS
不知是什么问题？

我也是同样问题：错误: no function definition: ACET-GEOM-SS-EXTENTS

账号		自动登录	找回密码
密码			注册