卑微的求一个毫米坐标转换为英标的坐标标注

hadessna

在论坛找到个国标坐标标注，现需要转换为英标标注。已知1'=304.8mm，1"=25.4mm，比如129736.8mm，需要显示为425'-7 3/4"。个人思路是是把尺和寸分开，除以304.8后是425.6457，向下取整为425'，然后"(寸)就按（129736.8-（425*304.8））/25.4，然后的出来的这个值用分数显示，按1/16的精度，得出结果为425'-7 3/4"，最好是可以消0，即如果标注得数为0，标注结果不显示0'或0"。

源码如下
;;坐标标注程序
;;--------------------------
(defun C:zb (/ OSNAP PNT1 P1X P1Y P1Z  P STDX STDY  XCOORD YCOORD ZCOORD PTXT )
    (setvar "ORTHOMODE" 0)
    (setq OSNAP (getvar "OSMODE"))
    (command "setvar" "osmode" "515")   
    (command "setvar" "luprec" "1")
    (prompt "NOTE!!! Coords. & leader drawn per current dimstyle; precision per UNITS... ")
             (setq dst (getvar "dimstyle"))
  (command "_.-DIMSTYLE" "_Restore" dst)
    (setq PNT1 (getpoint "\n选取点: "))
    (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 "E " STDX ))
    (setq YCOORD (strcat "N " STDY ))
    (setq ZCOORD (strcat "Z " STDZ ))
    (setq PTXT (getpoint
      "\n选取文字位置: "))
    (command "LEADER" PNT1 PTXT "" XCOORD YCOORD ZCOORD "")
    (command "SETVAR" "osmode" OSNAP)
    (command "setvar" "luprec" "4")
(princ)
)

或直接下载附件
谢谢各位。

hadessna

个人置顶~~~