冻结图层的恢复，大家有什么好的办法？

Lispboy

在我的程序中，有对指定冻结层恢复正常的代码，但是好多层要恢复的话，每次都要重新生成图形很多次，有没有办法只生成一次？求助大家。

夜来风语声

用vla方法！

Lispboy

夜来风语声 发表于 2013-4-28 19:59

                               
登录/注册后可看大图

用vla方法！

谢谢！能不能给贴段例子代码？

牢固

解冻全部图层：
[pcode=lisp,true](vlax-for obj (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-put-Freeze obj :vlax-false))[/pcode]
解冻“图层1”
[pcode=lisp,true](vla-put-Freeze (vla-item (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) "图层1") :vlax-false)[/pcode]

zxq0220

解冻所有图层：
(command "-LAYER" "T" "*" "")

Lispboy

zxq0220 发表于 2013-4-29 08:51

                               
登录/注册后可看大图

解冻所有图层：
(command "-LAYER" "T" "*" "")

这个要重新生成很多次的，不是我想要的。

Lispboy

牢固 发表于 2013-4-28 23:51

                               
登录/注册后可看大图

解冻全部图层：
(vlax-for obj (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (vla- ...

谢谢G版，不过解冻全部图层的，运行时候有错误提示，是什么原因。