区域2 pline-helkp

teknomatika · 发表于 2022-7-5 17:59:49

最亲爱的

在这个例程中，我打算将该区域转换为pline
但同时打算保留该区域。
谢谢

;;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/region-to-polyline/td-p/2432294;;
;;somebudy;;
(defun c:r2p ( / ename old_cmdecho)
(if (setq ename (car (entsel)))
(if (= (cdr (assoc 0
(entget ename))) "REGION")
(progn
(setq old_cmdecho (getvar
'cmdecho))
(setvar 'cmdecho
0)
(command "_.undo"
"_begin")
(command "_.explode"
ename)
(command "_.pedit" "_m"
(ssget "_p") "" "_y" "_j" 0.0 "")
(command "_.undo" "_end")
(setvar
'cmdecho old_cmdecho)
)
(prompt "\nThe selected object is not a
region.")
)
(prompt
"\nNothing selected.")
)
(princ)
)