(defun c:CHSEQ ()
; get first number
(setq prefix (getstring "\n Prefix <CH>? "))
(if (= prefix "")
(setq prefix "CH")
)
(setq stnum (getint "\nStarting number? "))
(setq label (strcat prefix "" (itoa stnum)))
(setq incrnum (getint "\nIncrement numbers by <17>? "))
(if (= incrnum nil)
(setq incrnum 17)
)
(setq txtht (getreal "\n Set textheight to: "))
(setq placepoint (getpoint "\Select text location: "))
(command "text" placepoint txtht "0" label)
(setq stnum (+ stnum incrnum))
(setq label (strcat prefix "" (itoa stnum)))
(setq placepoint (getpoint "\Select text location: "))
(while (/= placepoint nil)
(command "text" placepoint txtht "0" label)
(setq stnum (+ stnum incrnum))
(setq label (strcat prefix "" (itoa stnum)))
(setq placepoint (getpoint "\Select text location: "))
) ;end while
(princ)
) ; end defun
(prompt "\nType CHSEQ to run. ")