cad中坐标标注

标注坐标非常好用的小工具（收藏多年了） 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 ))