[求助]提问一菜鸟问题，请解答！

cxzr8

小弟初学VBA开发CAD，问题也很菜请不要见笑：



1 如何锁定层 名为2000 的层？


2 能否实现在逐个处理选择集中的对象（比如图中所有块的选择集）时，实时显示当前处理的对象？如处理到哪个块，就将将当前窗口适当缩放到那个那个块上


3 同样处理一批文件，是打开CAD后用VBA 处理效率高呢，还是对VB直接启动CAD处理效率高呢？？VBA和VB各自的优缺点大侠能否谈一下？

topirol

ThisDrawing.Layers("2000").Lock = True

efan2000

2. Sub Example_Lock()' 返回2000的图层Dim layerObj As AcadLayer
3. Set layerObj = ThisDrawing.Layers("2000")' 锁定图层layerObj.Lock =  True
4.                
5. End Sub

Sub Example_Lock()' 返回2000的图层Dim layerObj As AcadLayer Set layerObj = ThisDrawing.Layers("2000")' 锁定图层layerObj.Lock =  True                 End Sub

cxzr8

这里的朋友真是热情至极，刚发贴立刻就是师兄来解决了，多谢


不过不好意思，小弟刚才编辑了一下贴子，新增了两条，再请指点一二