合并线

caoyongjun

(setq ss (ssget '((0 . "*Line,SPLINE,ARC,ELLIPSE,POLYLINE")))) (command "pedit" "m" ss "" "j" "50000" "")

llsheng_73

PEDITACCEPT 系统变量
保存位置: 注册表
初始值: 0

禁止在 PEDIT 中显示“选定的对象不是多段线”提示。 该提示后会显示“是否将其转换为多段线？” 输入 y 可将选定对象转换成多段线。 当该提示被禁止显示时，选定对象将自动转换为多段线。

*Line包含Xline,它是无法进行合并的，所以过滤表也最好修改一下
(and(setvar "PEDITACCEPT"1)
     (setq ss (ssget '((0 . "SPLINE,ARC,ELLIPSE,*POLYLINE,line"))))
     (command "pedit" "m" ss "" "j" "50000" ""))