[编程交流] 写入大于32767的整数

(defun C:kk (/ input start rot count ang inc pt1)
(setq count (getint "Enter Starting No.: "))
(if (null count) (setq count 1))
(setq inc 1) 
(setq th (getint "\nEnter text height: "))
(if (null th) (setq th 1.27))
;; set continue flag to True
(setq continue T)
(while continue
(setq input (getpoint (strcat "\nInsertion point for number")))
;; evaluate user input
(cond 
(T
(command "text" "s" "Standard" "mc" input 2 0 count)
(setq pt1 input)
(setq count (+ count inc)))    
)
) 
(princ)
)

(initget 5)
(setq lgint (fix (getreal "\nEnter value ")))

(defun mygetint ( msg / rtn )
   (while
       (and (setq rtn (getreal msg))
            (not (equal rtn (setq rtn (atoi (rtos rtn 2 0))) 1e-)
       )
       (princ "\nRequires an integer value.")
   )
   rtn
)

(defun mygetint ( msg / rtn )
   (while
       (and (setq rtn (getstring msg))
            (/=  'int (type (setq rtn (read rtn))))
       )
       (princ "\nRequires an integer value.")
   )
   rtn
)

(defun c:test ( )
   (mygetint "\nEnter a number: ")
)

_$ (initget 5)
nil
_$ (fix (getreal "\nEnter value "))  <---- I entered "123456" at the command prompt.
123456

(defun C:kk (/ input start rot count ang inc pt1)
;(setq count (getint "Enter Starting No.: "))
_$ (initget 5)
nil
_$ (setq count (fix (getreal "\nEnter value ")))
(if (null count) (setq count 1))
(setq inc 1) 
(setq th (getint "\nEnter text height: "))
(if (null th) (setq th 1.27))
;; set continue flag to True
(setq continue T)
(while continue
(setq input (getpoint (strcat "\nInsertion point for number")))
;; evaluate user input
(cond 
(T
(command "text" "s" "Standard" "mc" input 2 0 count)
(setq pt1 input)
(setq count (+ count inc)))    
)
) 
(princ)
)