区域2 pline-helkp
最亲爱的在这个例程中，我打算将该区域转换为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)
) 插入
(command "copy" ename "" "d" '(0 0 0))
之前
(command "_.explode" ename) 和改变
(command "_.explode" ename)
到
(command "_.explode" (entlast))
所以拾取的实体保持不变，接下来的操作将在拾取的区域实体的副本上执行。。。 你可能还想研究培他西普。如果peditacept设置为1，则此功能将失败。
也许你应该得到peitaccept的旧值，然后将其设置为零，最后将其设置回旧的peitaccept。与使用CMDECHO的方式相同。 谢谢
结果，但多段线沿位移线表示。我打算与该地区重叠。
页:
[1]