;計測した座標値を引出線で旗上げ
;+++++++++++++
(defun C:Code01mm ( / Xp Yp )
;+++++++++++++
	(Command "OsnapCoord" "1" "-Layer" "M" "FlagID" "")
    (setq Pt (getpoint "\n計測する位置を指定:"))
    (Command "ID" Pt
                   "Grips" "2")
    ;+++++++++++++
    (setq Xp (car (getvar "Lastpoint")))
    (setq Yp (cadr (getvar "Lastpoint")))
    (setq Xp (/ Xp 1000))
    (setq Yp (/ Yp 1000))
    (setq Xp (rtos Xp ))
    (setq Yp (rtos Yp ))
    ;+++++++++++++
    (Command "Ucs" "w"
                   "Leader" "@" "_non" Pause "a"
                   (Strcat "X=" Xp) (Strcat "Y=" Yp) ""
                   "Grips" "2"
                   "Ucs" "p")
    (princ)
)
