neophyte 发表于 2022-7-6 14:18:39

层VPFreeze off-VBA

你好
 
我想知道“打开”所有图层的代码是什么
 
我知道锁定、打开、冻结，但我被卡住了：x和VP冻结
 

Dim objLayer As AcadLayer
On Error Resume Next
   For Each objLayer In ThisDrawing.Layers
       objLayer.LayerOn = True
       objLayer.Freeze = True
       objLayer.????? = True      
   Next
   ThisDrawing.Regen (acActiveViewport)

SEANT 发表于 2022-7-6 14:35:07

层VP冻结状态实际上由与特定视口关联的扩展数据确定。虽然VBA例程可以“VPfreeze”一个层，但我认为还没有演示过一种“VPthaw”一个层的方法。

neophyte 发表于 2022-7-6 14:49:43

糟糕的是，我要找到另一种方法来解决我的问题
 
无论如何谢谢你

Patrick_35 发表于 2022-7-6 15:05:40

你好
 
我就是这么做的
 
@+
全球环境基金。拉链

SEANT 发表于 2022-7-6 15:10:29

不完全是一种“层VPFreeze-off-VBA”方法，但对新手来说可能有用。

Patrick_35 发表于 2022-7-6 15:19:43

是的，但不能使用vba、lisp和vlisp（在视口中写入扩展数据）
仅使用arx、dll或vplayer的命令。
 
@+
页: [1]
查看完整版本: 层VPFreeze off-VBA