[VBA函数]：才能用vba对外部引用中的图层进行操作

wwwdong

假定一图形有三个外部引用图形分别为xref1,xref2,xrf3,
如何才能用vba对xref1,xref2,xref3,中的图层进行关闭，锁定
等操作呢？

灯火

2. 
   
3. Dim objBlock As AcadBlock
   
4. Dim objLayer As AcadLayer
   
5. Dim OldName As String
   
6. Dim LayName As String
   
7. 
   
8. OldName = "MyLayer"
   
9. 
   
10. For Each objBlock In ThisDrawing.Blocks
    
11.     If objBlock.IsXRef = True Then
    
12.         LayName = objBlock.Name & "|" & OldName
    
13.         Set objLayer = ThisDrawing.Layers(LayName)
    
14.         objLayer.LayerOn = False
    
15.     End If
    
16. Next
    

<br /> Dim objBlock As AcadBlock<br /> Dim objLayer As AcadLayer<br /> Dim OldName As String<br /> Dim LayName As String<br /> <br /> OldName = "MyLayer"<br /> <br /> For Each objBlock In ThisDrawing.Blocks<br />     If objBlock.IsXRef = True Then<br />         LayName = objBlock.Name & "|" & OldName<br />         Set objLayer = ThisDrawing.Layers(LayName)<br />         objLayer.LayerOn = False<br />     End If<br /> Next<br />