(entlast) 和(command "select" "p")都不是它,怪
www.dimcax.com
(entlast) 和(command "select" "p")都不是它,怪
(defun tt(ena)
(if (= (cdr (assoc 0 (entget ena))) "polyline")
(progn
(setq pe (getvar "peditaccept"))
(setvar "peditaccept" 0)
(if (= (getvar "plinetype") 0) (setvar "plinetype" 2))
(command "explode" ena)
(setq ena (ssget "p"))
(command "._pedit" "m" ena "" "y" "j" "0.5" "")
)
ena
)
ena
)
上面的程序是二维多段线变成多段线，但不知怎么样才能在 (command "._pedit" "m" ena "" "y" "j" "0.5" "")这一步结束后，让这个连成一体的线让我选中它,我试了好多种办法都不行
因为(entlast) 和(command "select" p)都不是它
d
指令: convertpoly
輸入聚合線轉換選項 [重(h)/輕(l)] <輕>:
要努力学习,不进则退
网络u盘：
(defun tt (ena)
(if (= (cdr (assoc 0 (entget ena))) "polyline")
(progn
(setq pe (getvar "peditaccept"))
(setvar "peditaccept" 0)
(if (= (getvar "plinetype") 0)
(setvar "plinetype" 2)
)
(command "explode" ena)
(setq ena (ssget "p"))
(command "._pedit" "m" ena "" "y" "j" "0.5" "")
(entlast)
)
ena
)
)
要努力学习,不进则退
网络u盘：
怎么我也是一开始都不行呢，好怪呀，谢谢龙大哥啦
d