(defun c:cor_t()
;;화일 저장
(setq datafile (getfiled “저장할 파일명 입력…[*.dat]” “c:\” “dat” 1))
(setq op (open datafile “a”))
(while (= 0 (ascii (getstring “계속진행은 Enter/Space 다른 문자를 누르면 종료됩니다.”)))
(cor)
(write-line (num_tt “,” y_t “,” x_t “,” he_tt) op)
(close op)
(alert (strcat “작업이 끝났습니다.” “n” “자료파일은 ” datafile “에 생성되었습니다.”))
)
)
(defun cor()
(setq num_t (entget (car (entsel “n Select Number >>>”))))
(setq num_tt (cdr (assoc 1 num_t)))
(setq xy (getpoint “n Select Point >>>”))
(setq x_t (list (strcat (rtos (car xy) 2 3))))
(setq y_t (list (strcat (rtos (cadr xy) 2 3))))
(setq he_t (entget (car (entsetl “n Select Height >>>”))))
(setq he_tt (cdr (assoc 1 he_t)))
)