[VBA]请教遍历图像对象

gjliang 发表于 2005-11-14 11:06:00

<PRE class=Code>Sub Example_Count()
' Use count to retrieve the number of objects in a collection
' You might use this value in a loop structure to iterate through the collection

MsgBox "There are " & ThisDrawing.Layers.count & " layer(s) in the drawing."
MsgBox "There are " & ThisDrawing.ModelSpace.count & " object(s) in ModelSpace."

Dim objCount As Integer
 Dim I As Integer
objCount = ThisDrawing.ModelSpace.count

Dim mspaceObj As AcadObject
For I = 0 To objCount - 1
Set mspaceObj = ThisDrawing.ModelSpace.Item(I)
MsgBox "The objects in ModelSpace include: " & mspaceObj.ObjectName, vbInformation, "Count 示例"
Next

End Sub</PRE><PRE class=Code>请问当modelspace中对象数目超过Integer上限时该如何处理。</PRE>

sieben 发表于 2005-11-14 17:01:00

dim i as double
For I = 0 To ThisDrawing.ModelSpace.count  - 1 step 1      Set mspaceObj = ThisDrawing.ModelSpace.Item(fix(I)) '取整     MsgBox "The objects in ModelSpace include: " & mspaceObj.ObjectName, vbInformation, "Count 示例"     Next
1,你用什么版本的AutoCAD 和VB?
2,你可以使用长整数
3,For each Obj in ModelSpace 这样不用到整数,ModelSpace 是一个集合

gjliang 发表于 2005-11-14 22:48:00

以前论坛里的一个例子：
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String) 'Dim entcount As Double entcount = ThisDrawing.ModelSpace.Count End Sub Private Sub AcadDocument_EndCommand(ByVal CommandName As String)     If Left(UCase(CommandName), 3) = "DIM" Then        'Count = ThisDrawing.ModelSpace.Count         Dim NewEnt As AcadEntity         Dim i As Long         Dim NewLayerName As String         '以下定义了要将标注对象移动到的图层名称         NewLayerName = "标注"         Dim newlayer As AcadLayer         Set newlayer = ThisDrawing.Layers.Add(NewLayerName)         newlayer.color = acGreen         For i = entcount To ThisDrawing.ModelSpace.Count - 1         Set NewEnt = ThisDrawing.ModelSpace.Item(i)         'If TypeOf NewEnt Is AcadDimension Then         NewEnt.Layer = "标注"         'End If         Next
end sub
当对象超过integer上限时就会出错，如果用For each Obj in ModelSpace 方法，每次遍历选择集就会很慢。

兰州人 发表于 2006-9-8 15:45:00

用For each Obj in ModelSpace 方法遍历选择集，与用dim as Inter　有何区别？
一张图纸的实体数是一定的，分实体遍历也是一样的．只不过是过滤了line,circle等实体．

palagon 发表于 2006-12-25 14:29:00

稍微练习了一下，有点收获不过还不知道怎么筛选

页: [1]

明经CAD社区's Archiver

[VBA]请教遍历图像对象