请教！VBA加载线型载不出来！谢谢

xds520007

用下面程序加载！好像只能加载ACAD_ISO10W100，别的线型都加载不出，哪位大侠指点指点

 Dim T As AcadLineType 'CAD线型，用于遍历已加载的线型
    Dim B As Boolean '用于标记检查已加载线型的结果
        For Each T In ThisDrawing.Linetypes '检查是否已加载中心线的线型
            If StrComp(T.Name, "ACAD_ISO12W100", 1) = 0 Then
                B = True
                Exit For
            End If
        Next
        If B = False Then ThisDrawing.Linetypes.Load "ACAD_ISO12W100", "acad.lin" '在要求的线型未找到时加载该线型
        layerObj.Linetype = "ACAD_ISO12W100" '按要求定义中心线线型
    layerObj.color = acYellow