面域转多段线

刘玉良 · 发表于 2018-3-5 14:15:47

格式不对

刘玉良 · 发表于 2018-3-5 14:16:43

改成这样
(defun C:RTP()
(setq S0 (entsel "\n请点选目标对象:"))
(COMMAND "layer" "n" "defpoints" "c" "7" "defpoints" "s" "defpoints" "p" "p" "defpoints" "" "chprop" S0 "" "la" "defpoints" "")
(COMMAND "EXPLODE" S0 "")
(setq RSS (ssget "x" '((0 . "LINE,ARC,*POLYLINE")(8 . "defpoints"))))
(COMMAND "PEDIT" "M" RSS "" "Y" "J" "0" ""))

yuanziyou · 发表于 2020-8-29 21:33:25

试试这个吧

账号		自动登录	找回密码
密码			注册

面域转多段线

本帖子中包含更多资源