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

cxzr8 · 发表于 2004-2-25 17:11:00

小弟初学VBA开发CAD，问题也很菜请不要见笑： 1 如何锁定层名为2000 的层？
2 能否实现在逐个处理选择集中的对象（比如图中所有块的选择集）时，实时显示当前处理的对象？如处理到哪个块，就将将当前窗口适当缩放到那个那个块上
3 同样处理一批文件，是打开CAD后用VBA 处理效率高呢，还是对VB直接启动CAD处理效率高呢？？VBA和VB各自的优缺点大侠能否谈一下？

topirol · 发表于 2004-2-25 17:17:00

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

efan2000 · 发表于 2004-2-25 17:18:00

copy


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

cxzr8 · 发表于 2004-2-25 17:23:00

这里的朋友真是热情至极，刚发贴立刻就是师兄来解决了，多谢
不过不好意思，小弟刚才编辑了一下贴子，新增了两条，再请指点一二

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

发表回复

精选推荐

浏览过的版块