컴터에서 리습을 보다가요
이 리습 파일을 찾게 되었는데요..
이게 어떤 리습인지 아시나요??
실행시켜 보니깐..
클릭하는 곳마다 숫자가 나오던데..
한글이 이상하게 나오긴 하지만 실행은 되는거 같거든여..
이게 무슨 리습인지 알수 있을까요?
****************************************************
(DEFUN C:BCN(/
sn cbn th txth
num pnt txt bh addnum
)
(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)
(setq addnum (getint “nAdd Number: “)) ;퍆쫭츜퇫
(initget “Box Circle None”)
(setq cbn (getkword “nBox/Circle/
(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/
(if (= pnt “Change”)
(setq num (getint “Enter New Number”))
(progn
(setq txt (itoa num))
(command “text” “j” “m” pnt txth “0” 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)) ;1쟢? 붳?
(setq num (+ num addnum)) ;퍆쫭쟢? 붳?
) ;of progn
) ;of if pnt=”Change”
(princ “nNumber”)
(princ num)
(initget “Change”)
) ; of while
(setq *error* oer seterr nil) ;킕쒊엨鉀 ⅱ듻
(princ)
);;; End of program