;;텍스트로 된 X,Y 좌표을 찍어 위치표현하기
(defun c:pt()
   (setq ss1 (entsel "\n-x좌표->"))
   (setq ss2 (entsel "\n-y좌표->"))
   (setq pt1 (cadr ss1))
   (setq en1 (car ss1) en2 (car ss2))
   (setq ptx (cdr (assoc 1 (entget en1))))
   (setq pty (cdr (assoc 1 (entget en2))))
   (setq pt2 (list (atof ptx) (atof pty)))
   (command "line" pt1 pt2 "")
(prin1))