qwesxqe 发表于 2015-12-5 11:42:03

本帖最后由 qwesxqe 于 2015-12-5 11:43 编辑

(defun c:fff ()
(print "选择需要倒角的多线段")
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(princ"\n")
(setq r (getreal " 输入半径:"))
(setq i 0)
(repeat (sslength ss)
    (setq sss (ssname ss i))
    (command "fillet" "p" "r" r sss )
    (setq i (1+ i))
)
(princ)
)
页: 1 [2]
查看完整版本: 请求封闭多义线修改Ｒ角