请指正我的设置当前激活线型的代码

清风明月名字

请问我下面的代码怎么无效啊。前面都是有效的，就是最后设线型为“断层破碎带”时无效
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的线型吗？