[求助]：针对外部参照，求教代码修改

sailorjt

下面是我的图层改色的代码。
现在我遇到的问题是只要求针对外部参照的图层改色，所以代码需要修改。
外面参照的图层怎么识别？
请教高手。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub ll()
   
6.     On Error Resume Next
   
7.    
   
8.     Dim I As Integer
   
9.     For I = 0 To ThisDrawing.Layers.Count - 1
   
10.     Select Case ThisDrawing.Layers.Item(I).color
    
11.     Case 2, 3, 4, 5, 7, 255, 51
    
12.     ThisDrawing.Layers.Item(I).color = 1
    
13.     Case 6
    
14.     ThisDrawing.Layers.Item(I).color = 200
    
15.     Case 251, 253, 254
    
16.     ThisDrawing.Layers.Item(I).color = 252
    
17.     Case 45, 151
    
18.     ThisDrawing.Layers.Item(I).color = 8
    
19.     End Select
    
20.       Next
    
21. End Sub
    
22. 
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub ll()<br />     On Error Resume Next<br />     <br />     Dim I As Integer<br />     For I = 0 To ThisDrawing.Layers.Count - 1<br />     Select Case ThisDrawing.Layers.Item(I).color<br />     Case 2, 3, 4, 5, 7, 255, 51<br />     ThisDrawing.Layers.Item(I).color = 1<br />     Case 6<br />     ThisDrawing.Layers.Item(I).color = 200<br />     Case 251, 253, 254<br />     ThisDrawing.Layers.Item(I).color = 252<br />     Case 45, 151<br />     ThisDrawing.Layers.Item(I).color = 8<br />     End Select<br />       Next<br /> End Sub<br /> <br />   [/FONT]<br />

雪山飞狐(lzh)

外部参照的图层你自己不知道么？
图样的外部参照在同一个图层上么？

sailorjt

比如我将一个外部参照放在XREF的图层上，该图层上就只有这个外部参照，无其它图元了，那么我如何针这个外部参照作图层颜色的修改？

雪山飞狐(lzh)

ThisDrawing.Layers("XREF").color=

sailorjt

好像不行。
ThisDrawing.Layers("XREF").color =
只是将XREF图层颜色改掉，而不会将外部参照的颜色改掉。
引用了外部参照，比如外部参照文件名为 A.DWG
引用后的名层是“A∣...”

雪山飞狐(lzh)

外部参照的名字有字符“∣”，而一般的图层名不可能有该字符

sailorjt

是啊。所以想问如何去识别外部参照的图层。

gdzhou

在图层中循环，判断名字中是否有字符“|”
之后再做Select Case 处理

sailorjt

我是新手，如何判断名字中含某个特定字符？

gdzhou

for i=0 to thisdrawing.layers.count-1
if instr(1,thisdrawing.layers.item(i).name,"|")<>0 then
      debug.print thisdrawing.layers.item(i).name & "中含有字符‘|’"
endif
next i

sailorjt

谢谢