求：此程序添加一个支持圆弧功能
本帖最后由 龙吟小调 于 2013-9-3 09:59 编辑(defun c:xlx()
(setq r (getreal "\n半径："))
(setvar "filletrad" r)
(setq ss (ssget '((0 . "line"))))
(setq pt_list nil)
(setq i 0)
(repeat (sslength ss)
(sub_test1 (ssname ss i))
(setq i (1+ i))
)
(foreach pt pt_list
(progn
(setq ss2 (ssget "c" pt pt))
(setq en1 (ssname ss2 0))
(setq en2 (ssname ss2 1))
(command "fillet" en1 en2)
)
)
(prompt "<<xlx>>相连线批量倒角")
)
(defun sub_test1 (#en)
(setq endata (entget #en))
(setq pt10 (cdr (assoc 10 endata)))
(setq pt11 (cdr (assoc 11 endata)))
(setq ssint (ssget "f" (list pt10 pt11)))
(setq ssint (ssdel #en ssint))
(if (> (sslength ssint) 0)
(progn
(setq j 0)
(repeat (sslength ssint)
(setq ena (ssname ssint j))
(if (ssmemb ena ss)
(progn
(setq pta (cdr(assoc 10 (entget ena))))
(setq ptb (cdr(assoc 11 (entget ena))))
(setq intpt (inters pt10 pt11 pta ptb))
(setq intpt1 (osnap intpt "int"))
(if (not (member intpt1 pt_list))(setq pt_list (cons intpt1 pt_list)))
)
)
(setq j (1+ j))
)
)
)
)
页:
[1]