怎样用vba实现对指定层的线宽和文字高度进行设置

a280881620

我想用vba遍历我的当前文件的所有层，然后对指定的层进行线宽和文字高度的设置怎么实现，我的代码如下，但无法达到功能，求高手指点。
Sub zongtu()
    On Error Resume Next
    Dim I As Integer
    Dim msg As String
    msg = ""
    Dim a As Double
    a = ThisDrawing.Layers.Count - 1
    For I = 0 To a
     If ThisDrawing.Layers.Item(I).Name = "DLSS" Then
     msg = ThisDrawing.Layers.Item(I).Name
     ThisDrawing.Layers(I).Lineweight = 0

    Next
'遍历图层，对dlss层的线宽设置为0，文字高度设置为1.25
End Sub

yshf

详见http://bbs.mjtd.com/thread-101995-1-1.html