怎样用vba实现对指定层的线宽和文字高度进行设置
我想用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
详见http://bbs.mjtd.com/thread-101995-1-1.html
页:
[1]