[编程申请]：如何修改块内某个实体的所在图层及颜色?(不炸开嵌套块儿的前提下)

jtybzl · 发表于 2004-12-11 08:16:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何修改块内某个实体的所在图层及颜色?(不炸开嵌套块儿的前提下),现附上一个只能修改块儿内某个实体颜色的程序段,求各位大侠帮忙补充上连图层也一并修改的程序.

(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)
)

zk_hisen · 发表于 2004-12-11 09:37:22

我知道在lisp里面可以用tblsearch来查询指定块中子实体，用entnext来实现循环。找到实体属性的相关项后修改，再更新就可以了。

jtybzl · 发表于 2004-12-11 12:30:19

哪位大哥帮忙解决一下吧,我对程序了解的很浅.

lsjjm · 发表于 2004-12-13 06:18:41

最初由 jtybzl 发布
[B]如何修改块内某个实体的所在图层...[/B]

和你的程序思路相同，照葫芦画瓢将color改成相应的layer：
[php]
(defun c:test ()
  (vl-load-com)
  (setq ent (car (nentsel)))
  (setq obj (vlax-ename->vla-object ent))
  (setq lay (getstring "\nNew Layer: "))
  (vla-put-layer obj lay)
  (vl-cmdf "regen")
)
[/php]

jtybzl · 发表于 2004-12-13 07:09:10

谢谢大哥出手相助,测试通过.

Jerry541 · 发表于 2004-12-13 08:25:59

老兄，在14下好象不行啊。

ruan_gdqf · 发表于 2004-12-16 23:07:16

我稍加组合即成为：同时可修改块内实体图层和颜色的小程序。不过所输入的图层必须是已存在的，否则无法修改成功。
在命令行键入：ch

cqxt00 · 发表于 2004-12-17 22:02:30

这个好！我工作中也遇到这个问题！

silen618 · 发表于 2004-12-18 14:14:00

用refedit命令，修改->外部参照和块编辑->在位编辑参照即可修改

cqxt00 · 发表于 2004-12-18 19:31:08

能不能批量修改

liushengri · 发表于 2008-2-26 23:00:09

好呀,我终于找到了

wlf168 · 发表于 2008-3-9 12:30:34

其实也无所谓，只是图纸好看了一点

cyyang05 · 发表于 2009-5-5 02:52:42

终于找到了，但是米米不够，可惜呀

李军 · 发表于 2009-5-16 10:40:05

好久没来了

又看到了东东

运行时提示：找不到主键。

怎么回事哟？

账号		自动登录	找回密码
密码			立即注册

[编程申请]：如何修改块内某个实体的所在图层及颜色?(不炸开嵌套块儿的前提下)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

哪位大哥帮忙解决一下吧,我对程序了解的很浅.

Re: [编程申请]：如何修改块内某个实体的所在图层及颜色?(不炸开嵌套块儿的前提下)

谢谢大哥出手相助,测试通过.