664571221 发表于 2018-7-10 14:51:16

这个程序，如何把已经连接的线段，变成红色

(defun C:LJX (/ PAT SS)
(setvar "CMDECHO" 0)
(princ "\n连接直线、圆弧、多段线 转为 多段线")
(setq PAT (getvar "PEDITACCEPT"))
(setvar "PEDITACCEPT" 1)
(if (setq SS (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
    (vl-catch-all-apply
      '(lambda ()
         (command "._Convert" "P" "S" SS "")
         (command "._Pedit" "M" SS "" "J" "1" "")
         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
       )
    )
)
(setvar "PEDITACCEPT" PAT)
(princ "\n已连接")
(princ)
)


永不言弃 发表于 2018-7-10 21:58:45

这代码我也是醉了，那么多表情在里面

479274135 发表于 2018-7-11 08:47:52

(entlast)
可以获取合并后的多线段
页: [1]
查看完整版本: 这个程序，如何把已经连接的线段，变成红色