cass1:500图幅号计算公式

yanguangfei

想模仿cass做个图号，谁知道，图号公式咋求，或源码，万分感谢。

hjmjtd

(defun pt->tfh (pt)
    (strcat
      (rtos (/ (- (cadr pt) (rem (cadr pt) 250)) 1000) 2 2)
      "-"
      (rtos (/ (- (car pt) (rem (car pt) 250)) 1000) 2 2)
    )
  )