Need a few solution

I need a few solution for this script,I'm not find where it wrong,any body
care?,thanks

; clf is stand for create layer with fast
; Design by Ade Suharna <>
; 17 February 2005
; Program no.
; Edit by
(defun c:clf (/ cnt n nlay)
(setq cnt 1)
(setq n (fix (getreal "\nHOW MANY LAYER YOU WOULD CREATE: ")))
(repeat n
(cond ((and (= cnt 1)(> cnt n))
(progn
(setq nlay cnt)
(command "_layer" "n" nlay "")
) ; end of progn
)
) ; end of cond
(setq cnt (1+ cnt))
) ; end of repeat
(princ)
)

 

Hi Walt,thanks for your advice,here I've got

; clf is stand for create layer with fast
; Design by Ade Suharna <>
; 17 February 2005
; Program no.
; Edit by
(defun c:clf (/ cnt n nlay)
(setq cnt 1)
(setq n (fix (getreal "\nHOW MANY LAYER YOU WOULD CREATE: ")))
(repeat n
(cond ((and (>= cnt 1)(< cnt n))
(progn
(setq nlay cnt)
(command "_layer" "n" nlay "")
) ; end of progn
)
) ; end of cond
(setq cnt (1+ cnt))
) ; end of repeat
(princ)
)

 

change your line (command "_layer" "n" nlay "")
to (command "_layer" "n" (itoa nlay) "")

itoa is for integer to assci (number to string)

 

Hi craig,it's "OK" too,thanks

 

I've still got problem to change of color,how to correct it,thanks.

; cls is stand for create layer special
; Design by Ade Suharna <>
; 18 February 2005
; Program no.194/02/2005
; Edit by
(defun c:cls (/ cnt n clr cl nlay cn)
(setq cnt 1)
(setq n 8)
(setq clr (list 1 5 250 6 4 2 7))
(setq cl 1)
(repeat n
(cond ((and (>= cnt 1)(< cnt n))
(progn
(setq nlay cnt)
(command "_layer" "n" nlay "" "") ; create w/o color
;(command "_layer" "m" nlay "c" cl "" "") ; create w/ color
) ; end of progn
)
) ; end of cond
(setq cnt (1+ cnt))
) ; end of repeat
(setq cnt nil)
(setq cnt 1)
(if cl
(repeat n
(cond ((and (>= cl 1)(< cl n))
(progn
(command "_layer" "m" cnt "c" cl "" "")
) ; end of progn
)
) ; end of cond
(setq cn (1+ cl))
(setq cl (nth cn clr))
(setq cnt (1+ cnt))
) ; end of repeat
) ; end if
(princ)
)

 

Hi, Ade!
May be like this:

Code:

(defun c:cls (/ clr i echo)
(setq echo (getvar "cmdecho")
i    0
clr  (list 1 5 250 6 4 2 7)
)
(setvar "cmdecho" 0)
(foreach col clr
(vl-cmdf "_.-layer" "_n" (itoa (setq i (1+ i))) "_c" (itoa col) (itoa i) "")
)
(setvar "cmdecho" echo)
(princ)
)

Best regards!

 

Great and perfect,thanks a lot Alaspher.

 

Hi Alaspher,if you not objection ,would you like send to me your
email,thanks.

 

My mail is on @hotmail.com box = my nickname

 

Thanks