VBA代码错误/新集合

classof · 发表于 2022-7-6 22:56:58

你好
我正在使用“autocad2006”。
我想知道在“当前层”绘制的线的数量和长度。
但它没有正常工作。我不知道为什么。
请帮助我了解以下代码。

Sub LineSelect（）
Dim模式为整数
Dim retval作为新收藏
Dim gpCode（0）为整数
Dim数据值（0）作为变量
将ssetObj设置为AcadSelectionSet
朦胧的温度
使用此图纸
gpCode（0）=0:dataValue（0）=“LINE”
模式=acSelectionSetAll
出错时继续下一步
如果选择集（“SELECT”）。选择集（“SELECT”）。删去
出错时转到0
设置ssetObj=。选择集。添加（“选择”）
ssetObj。选择模式、gpCode、dataValue
Dim idBlock尽可能长
idBlock=此图形。ActiveLayout。块ObjectID
Dim i为整数
对于i=0到ssetObj。计数-1
如果ssetObj（i）。OwnerID=idBlock Then
retval。添加tempent
如果结束
下一个i
MsgBox retval。计数当前布局的行数

将Eac变暗为AcadLine
对于retval中的每个Eac
MsgBox Eac。“长度”错误

下一个Eac

以结束
末端接头

非常感谢。