如何加载线性呢？

nhy12345678

ThisDrawing.Linetypes.Load "DASHDOT", "acad.lin"

第一次加载正确，再次加载已加载的线性就出现错误   "记录名重复"

如何解决这样的问题呢？谢谢。

azjmjsj

Sub linetyeExist()
Dim linetypeName As String
linetypeName = "CENTER"
On Error Resume Next
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
If Err.Description = "Duplicate record name" Then
MsgBox "线型名为" & linetypeName & "' 的线型已存在"
End If
End Sub

nhy12345678

原来一句 On Error Resume Next 就搞定了！非常感谢azjmjsj

中文版的CAD应该这样写：

Sub linetyeExist()
Dim linetypeName As String
linetypeName = "CENTER"
On Error Resume Next
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
If Err.Description = "记录名重复" Then
   MsgBox "线型名为" & linetypeName & "' 的线型已存在"
End If
End Sub

crazylsp

Dim linetypeName As String
linetypeName = "CENTER"
On Error Resume Next
ThisDrawing.Linetypes.Load linetypeName, "acad.lin"

谢谢提供很好用