Author Topic: 'counting' routine  (Read 1818 times)

0 Members and 1 Guest are viewing this topic.

idrawwithcad

  • Guest
'counting' routine
« on: August 24, 2005, 05:28:23 AM »
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

  • Swamp Rat
  • Posts: 599
  • Oberegg, Switzerland
'counting' routine
« Reply #1 on: August 24, 2005, 06:44:09 AM »
Visit my homepage -> Free Stuff -> Free Programs and DL ItemIndex.lsp.
Check the configuration section inside the prog.
A computer's human touch is its unscrupulousness!
MENZI ENGINEERING GmbH
Current A2k16... A2k24 - Start R2.18

Andrea

  • Water Moccasin
  • Posts: 2372
'counting' routine
« Reply #2 on: August 24, 2005, 08:47:10 AM »
count ??

what kind of counting type ?
Keep smile...

whdjr

  • Guest
'counting' routine
« Reply #3 on: August 24, 2005, 03:52:35 PM »
There is an automatic numbering tool in the Express Tools.

idrawwithcad

  • Guest
'counting' routine
« Reply #4 on: August 24, 2005, 06:19:21 PM »
Quote from: whdjr
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

  • Guest
'counting' routine
« Reply #5 on: August 24, 2005, 06:25:03 PM »
Code: [Select]
Sub SesameStreet()
Dim intCnt as Integer
for intCnt = 1 to 10
  MsgBox intCnt
next intCnt
End Sub

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
'counting' routine
« Reply #6 on: August 24, 2005, 06:57:03 PM »
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
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

Andrea

  • Water Moccasin
  • Posts: 2372
'counting' routine
« Reply #7 on: August 24, 2005, 10:34:56 PM »
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)
)))
Keep smile...