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

如何加载线性呢？

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

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

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

nhy12345678 发表于 2008-6-5 21:19:00

<p>原来一句 On Error Resume Next 就搞定了！非常感谢<strong><font face="Verdana" color="#61b713">azjmjsj</font></strong></p><p><strong><font face="Verdana" color="#61b713">中文版的CAD应该这样写：</font></strong></p><p>Sub linetyeExist()<br/>Dim linetypeName As String<br/>linetypeName = "CENTER"<br/>On Error Resume Next<br/>ThisDrawing.Linetypes.Load linetypeName, "acad.lin"<br/>If Err.Description = "记录名重复" Then<br/>&nbsp;&nbsp; MsgBox "线型名为" &amp; linetypeName &amp; "' 的线型已存在"<br/>End If<br/>End Sub</p>

crazylsp 发表于 2013-3-22 17:24:14

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

谢谢提供很好用
页: [1]
查看完整版本: 如何加载线性呢？