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

c3a139 · 发表于 2007-5-11 17:38:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

编了个坐标变换的小程序，用来改变坐标，坐标变换后就可以在图中直接查某点的坐标，但却遇到个问题，比如图为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)
))

zml84 · 发表于 2007-5-11 20:06:02

<CENTER><H1>自定义坐标系，用于查询坐标.lsp</H1></CENTER>
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
</SCRIPT>
<HR SIZE=5><PRE>;;;================================================================
;;;功能：自定义坐标系，用于查询坐标
;;;日期：zml84 于 2007-05-11
(defun c:myucs ()
(if (and (setq pt0 (getpoint "\n点取一个已知坐标的点:"))
(setq pt1 (getpoint pt0 "\n确定X方向:"))
(setq pt2 (getpoint pt0 "\n确定Y方向:"))
)
(progn
;;1、设置系统变量
(setq cmd_old (getvar "cmdecho"))
(setvar "cmdecho" 0)
;;2、设置用户坐标系
(command "_.UCS" "_3" pt0 pt1 pt2 "")
(if (setq pt3 (getpoint "请输入已知坐标点的坐标值:"))
()
(setq pt3 '(0 0))
)
(command "_.UCS" "_move" (mapcar '* '(-1 -1 -1) pt3))
;;3、输入比例尺
(setq blc1 (getreal "\n请输入N(X)方向比例尺："))
(if (or (= blc1 nil)
(= blc1 0)
)
(setq blc1 1.0)
)
(setq blc2 (getreal "\n请输入E(Y)方向比例尺："))
(if (or (= blc2 nil)
(= blc2 0)
)
(setq blc2 1.0)
)
;;4、循环查询
(while (setq pti (getpoint "\n点取要查询的点位："))
(setq x (car pti)
y (cadr pti)
)
;;根据比例尺计算实际坐标值
(setq x (* (/ x 1000) blc1)
y (* (/ y 1000) blc2)
)
;;显示结果
(princ (strcat "\r查询结果：X="
(rtos x 2 4)
" Y="
(rtos y 2 4)
)
)
)
;;5、恢复坐标系
(command "_.UCS" "p")
(command "_.UCS" "p")
;;6、恢复系统变量设置
(setvar "cmdecho" cmd_old)
)
) ;_结束 if
(princ)
) ;_结束 defun
</PRE>

<CENTER><H1>自定义坐标系，用于查询坐标.lsp</H1></CENTER> 
<SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified) 
</SCRIPT> 
<HR SIZE=5><PRE>;;;================================================================ 
;;;功能：自定义坐标系，用于查询坐标 
;;;日期：zml84 于 2007-05-11 
(defun c:myucs () 
    (if        (and (setq pt0 (getpoint "\n点取一个已知坐标的点:")) 
             (setq pt1 (getpoint pt0 "\n确定X方向:")) 
             (setq pt2 (getpoint pt0 "\n确定Y方向:")) 
        ) 
        (progn 
            ;;1、设置系统变量 
            (setq cmd_old (getvar "cmdecho")) 
            (setvar "cmdecho" 0) 
            ;;2、设置用户坐标系 
            (command "_.UCS" "_3" pt0 pt1 pt2 "") 
            (if        (setq pt3 (getpoint "请输入已知坐标点的坐标值:")) 
                () 
                (setq pt3 '(0 0)) 
            ) 
            (command "_.UCS" "_move" (mapcar '* '(-1 -1 -1) pt3)) 
            ;;3、输入比例尺 
            (setq blc1 (getreal "\n请输入N(X)方向比例尺：")) 
            (if        (or (= blc1 nil) 
                    (= blc1 0) 
                ) 
                (setq blc1 1.0) 
            ) 
            (setq blc2 (getreal "\n请输入E(Y)方向比例尺：")) 
            (if        (or (= blc2 nil) 
                    (= blc2 0) 
                ) 
                (setq blc2 1.0) 
            ) 
            ;;4、循环查询 
            (while (setq pti (getpoint "\n点取要查询的点位：")) 
                (setq x        (car pti) 
                      y        (cadr pti) 
                ) 
                ;;根据比例尺计算实际坐标值 
                (setq x        (* (/ x 1000) blc1) 
                      y        (* (/ y 1000) blc2) 
                ) 
                ;;显示结果 
                (princ (strcat "\r查询结果：X=" 
                               (rtos x 2 4) 
                               "        Y=" 
                               (rtos y 2 4)                                
                       ) 
                ) 
            ) 
            ;;5、恢复坐标系 
            (command "_.UCS" "p") 
            (command "_.UCS" "p") 
            ;;6、恢复系统变量设置 
            (setvar "cmdecho" cmd_old) 
        ) 
    ) ;_结束 if 
 
    (princ) 
) ;_结束 defun 
</PRE>

本楼代码可参见：http://zml84.blog.sohu.com/45630808.html

firstintimate · 发表于 2007-5-14 10:38:13

楼上的格式怎么出来的，和vlisp代码编辑器的一模一样?

c3a139 · 发表于 2007-5-14 12:47:17

zm184：你的水平真高(由衷的)，说实话编这个小程序我用了很长时间，而且你的编程习惯也非常好，条理清晰，是值得我好好学习的。但你改动后的程序我运行后也有些问题，如已知点为(321000，1050)，纵比例尺(Y)为1000，横比例尺(X)为10000，运行原程序，该点为(32100，1050)
运行修改的程序为(3210000，1050)。查(322000，*)，原程序为(32200，*)，修改的程序为(3211000，*)，两个程序都无法显示真实值。问题在
;;根据比例尺计算实际坐标值
(setq x (* (/ x 1000) blc1)
y (* (/ y 1000) blc2)
)
应用什么办法解决？

zml84 · 发表于 2007-5-14 15:22:57

回复楼上：说实话，我其实不了解你的代码是做什么用的，
单就这一句来说，出错原因可能是:在做除法运算时，运算结果返回了整数所致。
 
解决方法是，将该处改成：

;;根据比例尺计算实际坐标值
(setq x (* (/ x 1000.0) blc1)
y (* (/ y 1000.0) blc2)
)

回复上上楼：
代码着色其实是将LISP代码变成htm代码，我的是通过一个LISP程序实现的，由于现在还不是太完善，所以没有发布。

c3a139 · 发表于 2007-5-14 19:27:56

用于查询坐标

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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