(defun c:ann ( / a b c d)
(setq a (getstring “n시작 문자를 입력 하시오….!:”))
(while (= a “”)
(setq a (getstring “n시작 문자를 입력 하시오….!:”))
)
(setq b (getreal “n문자 높이를 지정하시오….!<2.5>:”))
(while (= b “”)
(setq b 2.5)
)
(setq c (getpoint “n문자 시작 포인트 찍어주세요 !!…::”))
(setq d 90)
(command “dtext” c b d a)
(princ)
)
;예) p40~p4f(16진법) 연속문자를 사용하려구 하는데 처음 한번 문자입력하구선
;다음엔 1씩 자동 증가하여 삽입지점만 마우스로 정해주면 연속 기입 할려구요
;리습공부 3일째인데 넘 어렵군요…님들 도움좀 주세요…!!!!