哪有从acad.lin文件中加载线型的详细列表

ningyong58

<pre class="Code">Sub Example_Load()
    ' 该示例尝试从acad.lin文件中加载 "CENTER" 线型。如果该线型已经存在，则显示提示。
   
    Dim linetypeName As String
    linetypeName = "center"
   
    ' 从acad.lin文件中加载 "CENTER"线型
    On Error Resume Next    ' 捕获任何出错信息
    ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
   
    ' 如果该名称已经存在，则提醒用户
    If Err.Number = -2145386405 Then
        MsgBox "名称为“" &amp; linetypeName &amp; "”的线型已经存在。", , "明经通道VBA线型加载示例"
    End If
   
End Sub</pre><pre class="Code">请问,在哪有从acad.lin文件中加载线型的详细列表,便于查找.谢谢.</pre>