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

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

(defun C

JX (/ PAT SS)
  (setvar "CMDECHO" 0)
  (princ "\n连接直线、圆弧、多段线转为多段线")
  (setq PAT (getvar "

EDITACCEPT"))
(setvar "

EDITACCEPT" 1)
  (if (setq SS (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(vl-catch-all-apply
   '(lambda ()
      (command "._Convert" "

" "S" SS "")
      (command "._Pedit" "M" SS "" "J" "1" "")
      (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
   )
)
  )
  (setvar "

EDITACCEPT" PAT)
(princ "\n已连接")
(princ)
)

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

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

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

(entlast)
可以获取合并后的多线段

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

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