Incremental Vule

[pmadhwal7]

how to place incremental value like 0,10,20,30 or 0,9,18,27 in autocad

[hanhphuc]

24 minutes ago, pmadhwal7 said:

how to place incremental value like 0,10,20,30 or 0,9,18,27 in autocad

 

basic of incremental , assume i= incremental value

(setq x (+ x i))

 

while

repeat

mapcar 

foreach

 

example: using repeat

(defun c:tt ( / i x)
(setq i 10 x 0)
(repeat 10
  (getstring "Press any key..")
  (princ (rtos (setq x (+ x i))2))
)
(princ)
)

 

[pmadhwal7]

4 minutes ago, hanhphuc said:

 

basic of incremental , assume i= incremental value

(setq x (+ x i))

 

while

repeat

mapcar 

foreach

 

example: using repeat

(defun c:tt ( / i x)
(setq i 10 x 0)
(repeat 10
  (getstring "Press any key..")
  (princ (rtos (setq x (+ x i))2))
)
(princ)
)

 

how can place those as a text

[hanhphuc]

 

 

25 minutes ago, pmadhwal7 said:

how can place those as a text

 

 entmake or entmakex

(entmake (list '(0 . "TEXT") '(40 . 3) (cons 1 (rtos x 2) ) (list 10 0 x)) )

where should you put this line of code in previous code?

try it & learn

 

 

[pmadhwal7]

16 hours ago, hanhphuc said:

Sir i have an lsp which place incremental number like 1,2,3.... like this lsp can i din't get any lsp which palce 0,9,18,27, or 10,20,30

 

 

 entmake or entmakex

(entmake (list '(0 . "TEXT") '(40 . 3) (cons 1 (rtos x 2) ) (list 10 0 x)) )

where should you put this line of code in previous code?

try it & learn

 

 

 

[Lee Mac]

You can use my Incremental Numbering Suite, specifying an increment of 9 or 10.