lisp爱好者 发表于 2011-5-20 08:40:50

如何修改多段线为带圆心点的线形

求助：如题，谢谢，因为线形较多，是水刀雕刻用的，雕刻机不认多段线，哪位大侠帮忙编个程序，谢谢！

Andyhon 发表于 2011-5-20 09:44:38

試了不甚相合...

Gu_xl 发表于 2011-5-20 10:55:04

回复 lisp爱好者 的帖子


(defun c:tt ( / ov vl lastenss)
(if (setq ss (ssget '((0 . "line"))))
    (progn
(setq vl '("CMDECHO" "PEDITACCEPT" "QAFLAGS")
        ov (mapcar 'getvar vl)
        )
(mapcar 'setvar vl '(0 1 0))
(setq lasten (entlast))
(vl-cmdf "_.pedit" "_M" ss "" "_J" "" "f" "" )
(setq ss (ssadd))
(while (setq lasten (entnext lasten)) (ssadd lasten ss))
(setvar "QAFLAGS" 1)
(command "_.explode" ss "")
(mapcar 'setvar vl ov)
)
    )
(princ)
)
页: [1]
查看完整版本: 如何修改多段线为带圆心点的线形