기존에 쓰던 리습인데 원안에 숫자가 차례로 넣는 리습인데..
원만 나오고 숫자가 안보입니다..
머가 문제 일까요??
(DEFUN C:BT()
(defun SETERR(s)
(if (/= s “Function cancelled”)
(princ (strcat “nError: ” s))
); of If
(setq *error* oer seterr nil)
(princ)
); of SETERR
(setq oer *error* *error* seterr)
(setvar “cmdecho” 0)
;(setq sn (getint “nStart Number : “))
(setq sn 1)
(initget “Box Circle None”)
(setq cbn (getkword “nBox/Circle/<None>: “))
(setq th (getvar “textsize”))
(princ “nPick text/Text height<“)
(princ th)
(initget “Pick”)
(setq txth (getdist “>: “))
(cond
((= txth nil) (setq txth th))
((= txth “Pick”)
(progn
(setq txth (cdr (assoc 40 (entget (car (entsel “Pick text”))))))
(princ “Text height is “)
(princ txth)
) ;of progn
) ;of cond txth=”Pick”
) ;of cond
(setq num sn)
(princ “nNumber”)
(princ num)
(initget “Change”)
(while (setq pnt (getpoint “, ChangeNum/<Pick point>: “))
(if (= pnt “Change”)
(setq num (getint “Enter New Number”))
(progn
(setq txt (itoa num))
(command “text” “j” “m” pnt txth “” TXT)
(setq bh (* 1.2 txth))
(cond
((= cbn “Circle”) (command “CIRCLE” pnt bh))
((= cbn “Box”)
(progn
(setq lu (list (- (car pnt) bh) (+ (cadr pnt) bh)))
(setq ru (list (+ (car pnt) bh) (+ (cadr pnt) bh)))
(setq rl (list (+ (car pnt) bh) (- (cadr pnt) bh)))
(setq ll (list (- (car pnt) bh) (- (cadr pnt) bh)))
(command “pline” lu ru rl ll “c”)
) ;of progn
) ;of cond cbn=”Box”
) ;of cond
(setq num (+ num 1))
) ;of progn
) ;of if pnt=”Change”
(princ “nNumber”)
(princ num)
(initget “Change”)
) ; of while
(setq *error* oer seterr nil)
(princ)
);;; End of program
수정부탁드림니다..