品茗新秀 发表于 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步就搞定
页: [1]
查看完整版本: 求点选一图元，在该图元上的在该图层上同色线被选择，将多线变成直线