Okay, here's what I've got so far.
Dim StartTime As Long
Dim EndTime As Long
Dim TotalTime As Long
Private Sub starttimer()
StartTime = Timer
'time = ThisDrawing.GetVariable("date")
End Sub
Private Sub endtimer()
'Dim seconds As Long
'time = ThisDrawing.GetVariable("date" - time)
'seconds = (time - time * 86400#)
'output seconds func
EndTime = Timer
End Sub
'Function output()
'MsgBox "Total Time = & CStr((lngEnd - lngStart) / 1000#)"
'End Function
Sub instest()
Dim inspt(0 To 2) As Double
Dim count As Integer
'Dim lngStart As Long
'Dim lngEnd As Long
Dim MSpace As AcadModelSpace
Set MSpace = ThisDrawing.ModelSpace
'lngStart = GetTickCount
'Set blkref = ThisDrawing.ModelSpace.InsertBlock _
' (inspt, "circ", 1#, 1#, 1#, 0)
starttimer
For count = 1 To 1000
MSpace.InsertBlock inspt, "Circ", 1, 1, 1, 0
Next count
'lngEnd = GetTickCount
endtimer
End Sub
'Declare Function GetTickCount Lib "kernel32" () As Long
Thanks Dave and Hendie. I took what I could from both of you guys, and it now inserts 1000 "circ" objects at 0,0,0. What I couldn't figure out is Hendie's:
Private Sub commandButton1_Click()
StartTime
instest
EndTime
TotalTime = EndTime - StartTime
TextBox1.Text = TotalTime
End Sub
Where do I put it. I tried it in the module, then in a form. I couldn't figure it out in either place.