yanguangfei 发表于 2017-11-9 00:02:04

cass1:500图幅号计算公式

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

hjmjtd 发表于 2017-12-3 20:04:29

(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)
    )
)
页: [1]
查看完整版本: cass1:500图幅号计算公式