求点选一图元，在该图元上的在该图层上同色线被选择，将多线变成直线

品茗新秀 · 发表于 2012-12-24 17:06:27

本帖最后由品茗新秀于 2012-12-24 17:08 编辑

求点选一图元，在该图元上的图层上同颜色线被选择，然后将在被选择中的有的是直线，有的是多线，将多线变成直线，其它不同

Andyhon · 发表于 2012-12-24 17:06:28

(Defun C:Try ()
(cond
((null (setq ee (entsel "\n 提示: ")))) ; 提示 <== 自已改
(T
   (setq dat (entget (car ee))
         lyr (assoc 8 dat)
         clr (assoc 62 dat)
   )
   (cond
   ((not clr))
   ((setq ss (ssget "X" (list lyr clr '(0 . "LWPOLYLINE"))))
      (SetVar 'QaFlags 1)
      (command "Explode" ss "")
      (SetVar 'QaFlags 0)
))))
)

Andyhon · 发表于 2012-12-24 21:20:19

...选择图元.. or What / 提示 User 接下去会是....

品茗新秀 · 发表于 2013-7-7 07:52:55

不错,,非常给力

蓝图测绘 · 发表于 2013-11-23 14:32:05

这还要编程吗？快速选择哪个图层的多线，然后炸开，2步就搞定

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

求点选一图元，在该图元上的在该图层上同色线被选择，将多线变成直线

最佳答案

点评