This architecture has major consequences:
Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Use code with caution. autocad 2013 vba module 64-bit
Public Sub PerformanceCheck() Dim strStart As Variant strStart = Timer Dim ptStart(0 To 2) As Double Dim ptEnd As Variant ptStart(0) = 0#: ptStart(1) = 0#: ptStart(2) = 0# Dim i As Double For i = 0# To 360# Step 0.1 ptEnd = ThisDrawing.Utility.PolarPoint(ptStart, i, 100#) Call ThisDrawing.ModelSpace.AddLine(ptStart, ptEnd) Next i ThisDrawing.Utility.Prompt vbCrLf & "Elapsed time..." & Timer - strStart & " seconds" & vbCrLf End Sub Long-Term Alternatives: Moving Beyond VBA If 64-bit Office
Optimize your loop logic. Instead of querying or modifying individual drawing entities one by one inside a high-iteration loop, leverage selection sets or pass data structures as arrays whenever possible to minimize inter-process cross-talk. Long-Term Alternatives: Moving Beyond VBA 100#) Call ThisDrawing.ModelSpace.AddLine(ptStart
If 64-bit Office (Excel/Word) is installed, the AutoCAD 64-bit VBA module will utilize the shared Microsoft Visual Basic for Applications 7.1 (VBA7) engine seamlessly.