Topic: 'counting' routine

[idrawwithcad]

does anyone have a routine that counts?  

i need to give individual numbers to a stack of items and looking for a quick way to do it!

[Jürg Menzi]

Visit my homepage -> Free Stuff -> Free Programs and DL ItemIndex.lsp.
Check the configuration section inside the prog.

[Andrea]

count ??

what kind of counting type ?

[whdjr]

There is an automatic numbering tool in the Express Tools.

[idrawwithcad]

There is an automatic numbering tool in the Express Tools.

ahhh thankyou! thats exactly what i was after, and i had an idea that it was included in the package somewhere, just wasnt sure where!

thanks

[Bob Wahr]

Code: [Select]

Sub SesameStreet()
Dim intCnt as Integer
for intCnt = 1 to 10
  MsgBox intCnt
next intCnt
End Sub

[MP]

Code: [Select]

Private Declare Sub ApiSleep _
    Lib "kernel32" _
    Alias "Sleep" _
    (ByVal dwMilliseconds As Long)
   
Public Sub TheCount()

    Dim i As Integer
   
    For i = 1 To 3
        Debug.Print i; " ";
        Call ApiSleep(1000)
    Next i
   
    Debug.Print vbCrLf

    For i = 1 To 3
        Call ApiSleep(300)
        Debug.Print "ahhh ";
    Next i

End Sub


[Andrea]

AutoCAD command in expresstools:
TCOUNT = TEXT COUNT
BOUNT = BLOCK COUNT



LISP:
(setq index 0)
(defun c:ppoint ()
(setq pick1 (getpoint "Pick a point: "))
(if pick1
(progn
(setq index (+ index 1))
(alert (strcat "Point number:" (rtos index)))
(c:ppoint)
)))