[求助]插入块改图层

jeike456 · 发表于 2010-9-4 16:40

(command "-insert" bname p1 1 1 0);插入块

(setq blockname2 (entlast))

(command "_chprop" blockname2 "" "la" la "");改图层

这样改的图层块里面的子图元的图元的图层没有改变,颜色也没有改变

请教大家有没有什么好方法?

xshrimp · 发表于 2010-9-4 20:13

块定义在0层就可以随层了.

jeike456 · 发表于 2010-9-4 21:38

还有其他办法吗？因为xshrimp的办法要是炸开块的话,图层就没了.

jeike456 · 发表于 2010-9-4 21:46

而且块定义在0层,当要单开这个图层时,看不到这个块.

psufngah · 发表于 2010-9-4 22:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=83092

jeike456 · 发表于 2010-9-5 13:06

上面的方法有一个问题,他会把没有选到的图块也改了

jeike456 · 发表于 2010-9-5 21:56

顶出高手...................

xshrimp · 发表于 2010-9-6 09:23

;;;xshrimp 2010.9.6 ;;;需要处理嵌套块的自己修改一下,即可.(defun c:test () (if (progn (princ "\n选择需要修改的图块") (setq ss (ssget ":E:S" '((0 . "INSERT") ))) ) (progn (setq obj (vlax-ename->vla-object (ssname ss 0))) (vlax-for n (vla-item (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vla-get-name obj)) (vla-put-Color n acByLayer) ;随层,这里修改是否随层. (vla-put-Layer n "0") ;放置在0层.这里修改你要放置的图层名 ) (vla-Update obj) ) (princ "\n你选择的不是块,或没有选中!"))(princ))

jeike456 · 发表于 2010-9-6 19:00

xshrimp请看附件,我只选了一个,怎么其他两个也改了

jeike456 · 发表于 2010-9-6 19:04

请帮帮看看

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