[求助]关于比例尺的问题

c3a139

编了个坐标变换的小程序，用来改变坐标，坐标变换后就可以在图中直接查某点的坐标，但却遇到个问题，比如图为10000时，要查232300这个点，显示却为23230，如何解决？
(defun c:myucs ()
(setq pp (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq pt1 (getreal "请输入N(X)坐标:"))
(setq pt2 (getreal "\n请输入E(Y)坐标:"))
(setq blc1 (getreal "\n请输入N(X)比例尺："))
(setq blc2 (getreal "\n请输入E(Y)比例尺："))
(setq pt11 (* (/ pt1 blc1) 1000))
(setq pt22 (* (/ pt2 blc2) 1000))
(setq pt3 (- 0 pt11))
(setq pt4 (- 0 pt22))
(setq pt5 (list pt3 pt4 0))
(command "UCS" "_3" (getpoint "选取一点:") (getpoint "\n确定X方向:") (getpoint "\n确定Y方向:") "")
(command "UCS" "_move" pt5)
(command "")
(setvar "cmdecho" pp)
(princ)
))

c3a139

没有人知道吗？

zml84

参见：http://zml84.blog.sohu.com/45630808.html