社区 › AutoLISP/Visual LISP 编程技术 › 选中的图块改色之后regen重生成，则同名称图块全部改色

LIULISHENG 发表于 2024-3-11 21:52:18

选中的图块改色之后regen重生成，则同名称图块全部改色

本帖最后由 LIULISHENG 于 2024-3-11 22:29 编辑

大家好，论坛里图块改色的源码http://bbs.mjtd.com/forum.php?mo ... %AB&_dsign=8e1af037

(defun c:gk (/ ChBlkColor SS blks I Obj BnLst)
(defun ChBlkColor (Blks Obj Color / BlkName oName)
    (if (and (= (vla-get-ObjectName obj) "AcDbBlockReference")
             (= (vla-get-HasAttributes obj) :vlax-true)
      )
      (foreach x (vlax-invoke obj 'getattributes)
      (vla-put-color x Color)
      )
    )
    (setq BlkName (vla-get-name obj))
    (if (not (member BlkName bnlst))
      (progn
      (setq bnlst (cons BlkName BnLst))
      (vlax-for X (vla-item Blks BlkName)
          (setq oName (vla-get-ObjectName X))
          (cond ((wcmatch oName "*Dimension,AcDbLeader,AcDbFcf")
               (vla-put-DimensionLineColor X Color)
               (if (wcmatch oName "*Dimension")
               (progn
                     (vla-put-ExtensionLineColor X Color)
                     (if (setq BlkName (assoc 2 (entget (vlax-vla-object->ename X))))
                     (vlax-for X (vla-item Blks (cdr BlkName))
                         (vla-put-color X Color)
                     )
                     )
                   )
               )
               (if (wcmatch oName "*Dimension,AcDbFcf")
                   (vla-put-TextColor X Color)
               )
                )
                ((= oName "AcDbBlockReference")
               (ChBlkColor Blks X Color)
                )
          )
          (vla-put-color X Color)
      )
      )
    )
    (vla-UpDate obj)
)
(if (and (setq ss (ssget '((0 . "insert"))))
         (or $ChBlkColor$ (setq $ChBlkColor$ 7))
         (setq $ChBlkColor$ (acad_colordlg $ChBlkColor$))
      )
    (progn
      (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
      (repeat (setq i (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
      (ChBlkColor Blks Obj $ChBlkColor$)
      )
    )
)
(princ)
)

在选中的图块改色后，如果regen重生成，会出现同名称的图块颜色全部更改，能否只更改选中的图块颜色？论坛里几乎所有图块改色例程都是这个思路，也都存在重生成后同名称图块全部改色的问题

你有种再说一遍 发表于 2024-3-11 22:10:38

1,块表记录相当于母体,块参照相当于孩子.
2,母体图元的颜色不设置随子则显示颜色是母体,反之随块就是随子.
3,大多数情况都是新建一个块.

你有种再说一遍 发表于 2024-3-11 22:38:03

LIULISHENG 发表于 2024-3-11 22:22
如楼上所言，问题是出在块表记录，块表只能针对同名称的所有块更改属性，不能针对其中的每个块来更改，可能 ...

我已经回答你了啊,块内随块,块外指定颜色(只允许一种颜色)
块之所以块,就是他们是一样的,允许多种不同颜色的行为很奇怪,cad并没有这个机制.
如果真的忍不了,可以自己实现一个"组块"功能,不就是复合图元嘛,想约束什么约束什么...这样要了解自定义图元

Bao_lai 发表于 2024-3-11 23:18:19

”同名称的不同块“   何为块，你读一下你的表述。
惊佬给出他的回答，要实现你的诉求：
1.单块改名，成为不同的块。
2.块颜色改为ByBlock，可以同块不同色。

LIULISHENG 发表于 2024-3-11 22:22:17

如楼上所言，问题是出在块表记录，块表只能针对同名称的所有块更改属性，不能针对其中的每个块来更改，可能怎样能够使同名称的不同块更改颜色？

LIULISHENG 发表于 2024-3-11 23:37:52

感谢楼上两位，受教了

xyp1964 发表于 2024-3-11 23:50:05

单图块改色

LIULISHENG 发表于 2024-3-12 00:14:14

xyp1964 发表于 2024-3-11 23:50
单图块改色

院长，改色后重生成可以吗？

liuhe 发表于 2024-3-12 08:47:17

除了是个新块，别无他法吧。有人的把块后加后缀编号，认为是同一块用来管理，实际并不是

shujh1989 发表于 2024-3-12 17:27:40

天正的图块改色命令可以实现这个功能。会提示是只改当前块，还是改所有同名块。不知道怎么实现的。

查看完整版本: 选中的图块改色之后regen重生成，则同名称图块全部改色