[分享]批量倒角

注册 · 发表于 2012-12-15 18:53

真的不错，结合xlx一起用，哈哈

lzg8877 · 发表于 2012-12-16 20:15

顶出源码发来看看吧

haoryh · 发表于 2013-4-12 15:08

感谢楼主分享，试用了一下，发现有以下问题：当图形靠边得近的时候，就会出错！见图片！

xxdxx001 · 发表于 2013-6-11 14:23

很好用，谢谢了

一杯清水 · 发表于 2013-6-11 16:31

好呀，的确不错，

kassiopeia · 发表于 2014-2-6 01:06

很需要这个功能！多谢楼主

5664491 · 发表于 2014-4-10 22:34

真的很好，多谢分享

恕放之生命 · 发表于 2014-8-5 16:29

谢谢分享。

tianxin118177 · 发表于 2014-9-22 10:33

谢谢,顶个,我新手,我发一个源代码不知道怎么用,帮我看看吗

(defun filletgp
(/ ssl1 ssl2 pt1 pt2 pt3 pt4 num num1 num2 i li1 li2
   intp1 intp2 nli1 nli2 dist ddd)
  (setvar "CMDECHO" 0)
  (setq ddd (getvar "FILLETRAD"))
  (setq dist (getdist (strcat "\nPlease input fillet radius<" (rtos ddd) ">:")))
  (if (/= dist nil)
(setvar "FILLETRAD" dist)
  )
  (setq
pt1 (getpoint "\nPlease select frist group line:\nFrist point:")
  )
  (initget 32)
  (setq pt2
      (getpoint pt1 "Second point:")
pt3
      (getpoint "\nPlease select second group line:\nFrist point:"
      )
  )
  (initget 32)
  (setq pt4  (getpoint pt3 "Second point:")
ssl1 (ssget "F" (list pt1 pt2) '((0 . "line")))
ssl2 (ssget "F" (list pt3 pt4) '((0 . "line")))
num1 (sslength ssl1)
num2 (sslength ssl2)
num  (min num1 num2)
i 0
  )
  (repeat num
(setq li1 (ssname ssl1 i)
   li2 (ssname ssl2 i)
   intp1 (inters pt1
pt2
(cdr (assoc 10 (setq nli1 (entget li1))))
(cdr (assoc 11 nli1))
)
   intp2 (inters pt3
pt4
(cdr (assoc 10 (setq nli2 (entget li2))))
(cdr (assoc 11 nli2))
)
)
(command "_.fillet" (list li1 intp1) (list li2 intp2))
(if (/= (cdr (assoc 8 nli1)) (cdr (assoc 8 nli2)))
   (progn
(setq nli2 (subst (assoc 8 nli1) (assoc 8 nli2) (entget li2)))
(entmod nli2)
   )
)
(setq i (1+ i))
  )
  (princ)
)

;;;
(defun C:fg (/ osort)
  (if (= (rem (setq osort (getvar "sortents")) 2) 1)
(progn
   (setvar "sortents" (- osort 1))
   (filletgp)
   (setvar "sortents" osort)
)
(filletgp)
  )
  (princ)
)

tianxin118177 · 发表于 2014-9-22 10:34

命令 "FG"

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

[分享]批量倒角

本帖子中包含更多资源