社区 › Auto Lisp › 一层不同颜色的物体

121madhu 发表于 2022-7-6 06:20:06

一层不同颜色的物体

任何想法都必须将一个图层更改为另一个图层任何一种颜色的对象
 
 

Tharwat 发表于 2022-7-6 06:26:47

要选择不同颜色的对象的源层的名称是什么，目标层的名称是什么？

121madhu 发表于 2022-7-6 06:29:24

尺寸和反转级别都是不同的颜色，但在我的dwg中只有一个图层。我试图改变不同的层（层昏暗和层IL）都是不同的颜色，所以我可以改变选择性颜色来修改

Tharwat 发表于 2022-7-6 06:33:08

我听不懂你的拙劣解释

Organic 发表于 2022-7-6 06:37:33

我会使用快速选择（qselect）。

ReMark 发表于 2022-7-6 06:42:28

匹配属性？

121madhu 发表于 2022-7-6 06:46:24

有此图纸的三种颜色。但是单层，所以我想把三层换成相同颜色的物体。我做了这项工作，手动选择物体，花了很多时间。任何其他方法都可以将层选择性颜色对象当前层更改为用户定义层
 
 
 
 
 
谢谢你的支持

Tharwat 发表于 2022-7-6 06:50:59

要更改或移动到另一层的对象的颜色是什么？
对象应该移动到的层的名称是什么？

121madhu 发表于 2022-7-6 06:54:33

检查所附图片。三种颜色（黄色、绿色、粉色）单层
黄色-反转级别
绿色–坐标
粉红色-尺寸
如何将当前图层的颜色更改为用户定义的
（示例：-黄色-反转级别目标层反转级别
绿色–坐标目标层坐标
粉红色-尺寸目标层尺寸）。

Tharwat 发表于 2022-7-6 06:59:16

这
 

(defun c:Test (/ lst l ss i e)
(foreach x (setq lst '((2 . "INVERT LEVELS")
                        (3 . "COORDINATES")
                        (6 . "DIMENSIONS")
                     )
            )
   (if (not (tblsearch "LAYER" (cdr x)))
   (setq l (cons (cdr x) l))
   )
)
(if l
   (alert
   (strcat "Layers not found in the drawing < "
             (apply 'strcat
                  (mapcar '(lambda (x) (strcat " <" x "> ")) l)
             )
             " >"
   )
   )
   (if (setq ss
            (ssget "_:L"
                     '((-4 . "<OR") (62 . 2) (62 . 3) (62 . 6) (-4 . "OR>"))
            )
       )
   (repeat (setq i (sslength ss))
       (setq e (entget (ssname ss (setq i (1- i)))))
       (foreach u lst
         (if (eq (car u) (cdr (assoc 62 e)))
         (progn
             (setq e (subst (cons 62 256) (assoc 62 e) e)
                   e (subst (cons 8 (cdr u)) (assoc 8 e) e)
             )
             (entmod e)
         )
         )
       )
   )
   )
)
(princ)
)

查看完整版本: 一层不同颜色的物体