vb 判断CAD线型是否已加载的函数问题

cs3617

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  '这句有要求对象的错误

xxxtttxxx

定义entry了吗？dim entry as object

另外一般好像习惯用entity或者element等。

cs3617

定义了，也不行啊，再帮我看看啊

xxxtttxxx

换种方法吧，

for i =0 to x

linetypes.item(i)

next