VBA代码错误/新集合
你好我正在使用“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
以结束
末端接头
非常感谢。 我认为问题在于，这行中的“tempent”从未设置为值。
retval.Add tempent
肖恩
我认为是这样。。我会再试一次。
非常感谢。
页:
[1]