社区 › VB › 如何加载线性呢？

nhy12345678 发表于 2008-5-30 22:35:00

如何加载线性呢？

ThisDrawing.Linetypes.Load "DASHDOT", "acad.lin"
第一次加载正确，再次加载已加载的线性就出现错误   "记录名重复"
如何解决这样的问题呢？谢谢。

azjmjsj 发表于 2008-6-2 00:21:00

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 发表于 2008-6-5 21:19:00

原来一句 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 发表于 2013-3-22 17:24:00

谢谢提供很好用

查看完整版本: 如何加载线性呢？