Topic: Leader Lisp

[Scott]

Does anyone have a leader lisp that will automatically increment numbers they would be willing to share?

[Andrea]

there is a little one..

Code: [Select]

(defun c:leadnum (/ lm)
(vl-load-com)
  (setq lm (vlax-ldata-get "leadnum" "currentnum"))
  (if (not lm)
    (setq lm (vlax-ldata-put "leadnum" "currentnum" 0))
   )
  (vl-cmdf "_Leader" pause pause "" (rtos lm) "")
  (vlax-ldata-put "leadnum" "currentnum" (1+ lm))
)
 

[fixo]

Here is another one

Code: [Select]

(defun C:ld  (/ num osm pt)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq num (getint "\nEnter an initial number: "))
  (while
    (setq pt (getpoint
       "\nSpecify leader start point: (or hit ENTER to Exit) "))
     (command "._leader" pt pause "" (itoa num) "")
     (setq num (1+ num)))
  (setvar "cmdecho" 1)
  (setvar "osmode" osm)
  (princ)
  )
(princ "\nStart command with LD")
(princ)
~'J'~

[Fabricio28]

Hey, guys.
I'd like to put prefix  in this routine. Anybody Could help me please?
e.g. BLS 1, BLS 2 ...

(defun C:ld  (/ num osm pt)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq num (getint "\nEnter an initial number: "))
  (while
    (setq pt (getpoint
           "\nSpecify leader start point: (or hit ENTER to Exit) "))
     (command "._leader" pt pause "" (itoa num) "")
     (setq num (1+ num)))
  (setvar "cmdecho" 1)
  (setvar "osmode" osm)
  (princ)
  )
(princ "\nStart command with LD")
(princ)

Kind Regards

[Lee Mac]

Change:

Code - Auto/Visual Lisp: [Select]

1. (itoa num)

to:

Code - Auto/Visual Lisp: [Select]

1. (strcat "BLS " (itoa num))

Welcome to the Swamp Fabricio   

[PS: Read this also  ]

[Fabricio28]

Thanks Lee,
You're awsome!!!!
 

[rlxozzang]

THANK YOU "Andrea"
GOOD CODE : vlax-ldata-put
"vlax-ldata-put" function to have learned here.

there is a little one..

Code: [Select]

(defun c:leadnum (/ lm)
(vl-load-com)
  (setq lm (vlax-ldata-get "leadnum" "currentnum"))
  (if (not lm)
    (setq lm (vlax-ldata-put "leadnum" "currentnum" 0))
   )
  (vl-cmdf "_Leader" pause pause "" (rtos lm) "")
  (vlax-ldata-put "leadnum" "currentnum" (1+ lm))
)