Public Function Findlt(LineTypeName As String) As Boolean
Findlt = False
For Each entry In acadDoc.Linetypes
If StrComp(entry.Name, LineTypeName) = 0 Then
Findlt = True '标志为已找到线型
Exit For '退出循环
End If
Next entry '结束循环
End Function
For Each entry In acadDoc.Linetypes '这句有要求对象的错误
置顶卡
