获取图层名时遇到的问题 谢谢

fmfm

这段程序 目的是每找到一个图层就把这个图层的名字给动态数组中的一个变量，不这道怎么了 红色的部分提示有问题，谢谢指教。同时很想知道更简单的方法，谢谢 Private Sub CommandButton1_Click()
Dim layerNames As String
Dim entry As AcadLayer
Dim layercount As Integer
Dim j As Integer
j = 0
layerNames = ""
For Each entry In ThisDrawing.Layers
layerNames = layerNames + entry.Name + vbCrLf
Dim layernamesarray() As String
For i = j To j
layernamesarray(i) = entry.Name
j = j + 1
Next
Next
For i = 0 To layercount - 1
MsgBox "图形中的图层有: " + vbCrLf + layernamesarray(i)
Next
End Sub

myfreemind

你的数组元素个数没有指定吧 Sub listlayer()
Dim i As Integer
Dim s As Integer
Dim layerm() As String
s = ThisDrawing.Layers.Count - 1
ReDim layerm(s) As String
For i = 0 To s
layerm(i) = ThisDrawing.Layers.Item(i).Name
Debug.Print layerm(i)
Next End Sub

雪山飞狐_lzh

太复杂了，错误又多，给你一个：

2. Private Sub CommandButton1_Click()
3. Dim strLayer() As String
4. Dim i As Integer
5. ReDim strLayer(ThisDrawing.Layers.Count - 1) As String
6. For i = 0 To ThisDrawing.Layers.Count - 1
7. strLayer(i) = ThisDrawing.Layers(i).Name
8. MsgBox strLayer(i)
9. Next i
10. End Sub

Private Sub CommandButton1_Click() Dim strLayer() As String Dim i As Integer ReDim strLayer(ThisDrawing.Layers.Count - 1) As String For i = 0 To ThisDrawing.Layers.Count - 1 strLayer(i) = ThisDrawing.Layers(i).Name MsgBox strLayer(i) Next i End Sub

fmfm

谢谢两位老大，写出我那么烂的程序因为我根本没学过vba，呵~~ lzh741206老大 写出这样的程序 你推荐教材吗，谢啦

雪山飞狐_lzh

教材？我看的是帮助，没学过什么教材

fmfm

那我也看帮助去.........

ZKSJLL

程序确实构精简，非常巧妙！


妙不可言......