topic Re: For loop stops at step 200 in VBA Forum

For loop stops at step 200

erhan.lale — Thu, 30 Nov 2023 16:19:13 GMT

I have really simple document. There is only 1116 circles on one layer.

I want to transfer radius of each circle and wrote really simple VBA code:

Sub radiusOfCircles() Dim ent As AcadEntity For Each ent In ThisDrawing.ModelSpace If TypeOf ent Is AcadCircle Then Debug.Print ent.Radius End If Next End Sub

I wanted do copy from debug window. If I run it, I get only 199 objects. I have no idea why.

Re: For loop stops at step 200

fkellogg — Thu, 30 Nov 2023 17:03:26 GMT

Can you not simply do a Data Extraction?

Re: For loop stops at step 200

Ed__Jobe — Thu, 30 Nov 2023 17:03:32 GMT

It's a limitation of the IDE. Acad also has this limitation. The command line (F2) history can only store 400 lines. Write the data to Excel instead.

Sub radiusOfCircles() Dim xl As Excel.Application Dim wb As Excel.Workbook Dim sht As Excel.Worksheet Set xl = GetXL() Set wb = xl.Workbooks.Add Set sht = wb.Worksheets(1) sht.Name = "circles" Dim i As Integer sht.Cells(1, "A").Value = "Handle" sht.Cells(1, "B").Value = "Radius" i = 2 Dim ent As AcadEntity For Each ent In ThisDrawing.ModelSpace If TypeOf ent Is AcadCircle Then sht.Cells(i, "A").Value = ent.Handle sht.Cells(i, "B").Value = ent.radius End If i = i + 1 Next wb.SaveAs "C:\Temp\RadiusOfCircles.xlsx" Set sht = Nothing Set wb = Nothing Set xl = Nothing End Sub Public Function GetXL() As Application On Error Resume Next Dim xlApp As Application Set xlApp = GetObject(, "Excel.Application") If xlApp Is Nothing Then Set xlApp = CreateObject("Excel.Application") End If Set GetXL = xlApp End Function

Re: For loop stops at step 200

fkellogg — Fri, 01 Dec 2023 12:23:26 GMT

@erhan.lale

Thanks for the Solution!

The extent of my knowledge of lisp code is the defun: C thing.

My acaddoc.lsp file is chock full of ways to bypass tedious keystrokes and dialog boxes.

(defun C:cc0 ( ) (command "chamfer" "distance" 0 0 "chamfer" "polyline" )
(princ "Polyline Chamfer at Distance 0-0" )(princ) )

(defun C:f116 ( ) (command "fillet" "radius" ".6875" "fillet" "Multiple" )
(princ "Multiple Fillet At 11/16 Inch " )(princ) )

(defun C:n ( ) (command "move" "p")
(princ "Move Previous" )(princ) )

All that other code is just gibberish to me. No offense intended.

Cheers!

CFK