[编程申请]：修改块里个别图元

chenhang1203

请问在CAD14或2000中如何修改块里个别图元的属性而又不炸开块，使之还是完整的块。

refedit在R14中不可用，最讨厌的是它保存后把图中所有的同名块都改变了，甚至外部参照的源图也变了，这很不方便啊。
比如我在一张图中插入了两个块（块名都是A），我想改变其中一个块中的某个图元的颜色，而另一个块不改变，refedit这个命令就不行了啊
有人帮我编个LISP程序吗？

lsjjm

搜索论坛，有些这方面的帖子。

chenhang1203

能否告诉我怎么做呢？我做了个例子请大家看看，图中插入有2个同名图块“abc"，我想改变其中一个图块中直线的颜色，用refedit命令做法如下，可是他改变的是整个“abc”图块，即图中右边的那个图块也同时改变了，能否只改变一个呢？
如果你们告诉我用不同的名字定义，那算了，因为地形图中这样的图块太多太繁，能编个程序只改变其中我需要编辑的块吗

XDSoft

最初由 chenhang1203 发布
[B]能否告诉我怎么做呢？我做了个例子请大家看看，图中插入有2个同名图块“abc"，我想改变其中一个图块中直线的颜色，用refedit命令做法如下，可是他改变的是整个“abc”图块，即图中右边的那个图块也同时改变了，能否?.. [/B]

因为REFEDIT修改的是“块定义”，而你的INSERT实体引用的是“块定义”来显示不同的比例。因此，你修改了“块定义”后，所有引用这个块定义的INSERT实体都要跟着变化。

解决方法：

1.你从新插入一个块，比如AAA，然后用修改你需要的INSERT实体引用新插入的块AAA。

2.炸开你要修改的INSERT实体,编辑后,如果需要,在重新制作一个新的块,然后插入一个引用这个块的INSERT

wengsg

非常好的方法，我投你1000票

chenhang1203

能否用我的例子做个演示呢

lsjjm

不用炸开，下面小程序便可以修改块中图元颜色。
(defun c:test ()
  (vl-load-com)
  (setq obj (car (nentsel "\nSelect an subentity: ")))
  (setq obj (vlax-ename->vla-object obj))
  (setq col (getstring "\nNew Color Number: "))
  (vlax-put-property obj 'color col)
  (vl-cmdf "regen")
  (princ)
)

ysx810210

试试这个
http://www.xdcad.net/forum/showthread.php?s=&threadid=436917
或是
"http://www.xdcad.net/forum/showthread.php?s=&threadid=436917"