标注坐标非常好用的小工具（收藏多年了）
ommand "_.-DIMSTYLE" "_Restore" dst)
(setq PNT1 (getpoint "\nPick coordinate point: "))
(setq P1X (car pnt1))
(setq P1Y (cadr pnt1))
(setq P1Z (caddr pnt1))
(setq P (getvar "LUPREC"))
(setq STDX (rtos P1X 2 P))
(setq STDY (rtos P1Y 2 P))
(setq STDZ (rtos P1Z 2 P))
(setq XCOORD (strcat "X " STDX ))
(setq YCOORD (strcat "Y " STDY ))
(setq ZCOORD (strcat "Z " STDZ ))
