请指正我的设置当前激活线型的代码
请问我下面的代码怎么无效啊。前面都是有效的，就是最后设线型为“断层破碎带”时无效Private Sub CommandButton252_Click()
' 这个范例在搜寻线型DashDot，如果没有找到
' 则会由acad.lin 文件添加
' 在线型集合中搜寻DashDot 线型
Dim entry As AcadLineType
Dim found As Boolean
found = False
For Each entry In ThisDrawing.Linetypes
If StrComp(entry.Name, "断层破碎带", 1) = 0 Then
found = True
Exit For
End If
Next
'If Not (found) Then ThisDrawing.Linetypes.Load "断层破碎带", "断层破碎带Aj.lin"，其中“断层破碎带Aj.lin”为线型所在文件名称，“断层破碎带”为线型名称
If Not (found) Then ThisDrawing.Linetypes.Load "断层破碎带", "断层破碎带Aj.lin"
Dim newLineType As AcadLineType
newLineType.Name = "断层破碎带"
' 最后将激活的线型重设为
ThisDrawing.ActiveLinetype = newLineType
End Sub
清风明月名字897(897902105) 13:09:33
newLineType.Name = "断层破碎带"
这句话不能指定newLineType的线型吗？
页:
[1]