vb 判断CAD线型是否已加载的函数问题
Public Function Findlt(LineTypeName As String) As BooleanFindlt = 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'这句有要求对象的错误
定义entry了吗？dim entry as object
另外一般好像习惯用entity或者element等。
定义了，也不行啊，再帮我看看啊 换种方法吧，
for i =0 to x
linetypes.item(i)
next
页:
[1]