图层数据传到数组
<p>将下列程序拷贝到dvb中就可以将图层字符串到数组中。</p><p>Sub ll()<br/> Dim ConnectCad As New MyAcadEntity<br/> Dim tt As String</p><p>' With ConnectCad.objModelDocument<br/> With Thisdrawing<br/> Debug.Print "dim BaseLayerArray(" & .Layers.Count - 1 & ")"<br/> tt = "BaseLayerArray=array("<br/> For ii = 0 To .Layers.Count - 2<br/> tt = tt & Chr(34) & .Layers.Item(ii).Name & Chr(34) & ","<br/> Next ii<br/> tt = tt & Chr(34) & .Layers.Item(.Layers.Count - 1).Name & Chr(34) & ")"<br/> Debug.Print tt<br/> End With<br/>End Sub</p>
页:
[1]