[LISP程序]：急！如何用程序改变用Minsert插入块的颜色？

hnxychf

如何用程序改变用Minsert插入块的颜色？

xyp1964

首先插入的块必须是随层的，插块前先建一个新层并设定层颜色就可以了。
利用以下程序建新层和颜色：
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
  )
)
如建“图块”层、颜色为5：(mkla"图块"5)

hnxychf

多谢xyp1964  ！
图中的块的颜色不是随层的，而且图中用Minsert插入的很多这样的块，如何改变其颜色？
我的思路是用block重新定义块，但不知道怎么用程序实现，请各位高手帮助。
图见附件

nuance

command:chbp

lsjjm

最初由 hnxychf 发布
[B]如何用程序改变用Minsert插入块的颜色？ [/B]

REFER TO:
[php]
(defun c:test ()
  (setq ent (car (entsel)))
  (setq obj (vlax-ename->vla-object ent))
  (setq col (acad_colordlg 7))
  (vlax-for
    item
    (vla-item
      (vla-get-blocks
        (vla-get-activedocument
          (vlax-get-acad-object)))
      (vla-get-name obj)
    )
    (vla-put-color item col)
  )
  (vl-cmdf "regen" "")
)
[/php]

ll_j

最初由 hnxychf 发布
[B]多谢xyp1964  ！
图中的块的颜色不是随层的，而且图中用Minsert插入的很多这样的块，如何改变其颜色？
我的思路是用block重新定义块，但不知道怎么用程序实现，请各位高手帮助。
图见附件 [/B]

其实使用“在位编辑”（refedit，R2000+命令）是比较好的方法，不必重新定义块。
Minsert不能打碎，但它的基本元素还是“块”只要插入相同的块，然后“在位编辑”，Minsert也会随之修改。
块中实体特性可以设置为“随层”或者“随块”，在使用时有不同效果，在http://xdcad.net/forum/showthrea ... 1124705#post1124705中我有过比较。

hnxychf

多谢白金长老，你的程序很好用。