找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 757|回复: 5

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

[复制链接]
发表于 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)
))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2个

财富等级: 恭喜发财

发表于 2007-5-11 20:06:02 | 显示全部楼层

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


  1. <CENTER><H1>自定义坐标系,用于查询坐标.lsp</H1></CENTER>
  2. <SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
  3. </SCRIPT>
  4. <HR SIZE=5><PRE><FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;;================================================================</SPAN></FONT>
  5. <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;;功能:自定义坐标系,用于查询坐标</SPAN></FONT>
  6. <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;;日期:zml84 于 2007-05-11</SPAN></FONT>
  7. <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">defun</FONT> <FONT face="Fixedsys">c:myucs</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  8.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">and</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">pt0</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n点取一个已知坐标的点:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  9.              <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">pt1</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys">pt0</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n确定X方向:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  10.              <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">pt2</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys">pt0</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n确定Y方向:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  11.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  12.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
  13.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;1、设置系统变量</SPAN></FONT>
  14.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">cmd_old</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getvar</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"cmdecho"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  15.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setvar</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"cmdecho"</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  16.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;2、设置用户坐标系</SPAN></FONT>
  17.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_.UCS"</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_3"</FONT> <FONT face="Fixedsys">pt0</FONT> <FONT face="Fixedsys">pt1</FONT> <FONT face="Fixedsys">pt2</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">""</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  18.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">pt3</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"请输入已知坐标点的坐标值:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  19.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  20.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">pt3</FONT> <FONT face="Fixedsys" COLOR="#0000FF">'</FONT><FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#009900">0</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  21.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  22.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_.UCS"</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_move"</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">mapcar</FONT> <FONT face="Fixedsys" COLOR="#0000FF">'</FONT><FONT face="Fixedsys" COLOR="#0000FF">*</FONT> <FONT face="Fixedsys" COLOR="#0000FF">'</FONT><FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#009900">-1</FONT> <FONT face="Fixedsys" COLOR="#009900">-1</FONT> <FONT face="Fixedsys" COLOR="#009900">-1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys">pt3</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  23.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;3、输入比例尺</SPAN></FONT>
  24.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">blc1</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getreal</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n请输入N(X)方向比例尺:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  25.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">or</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">blc1</FONT> <FONT face="Fixedsys" COLOR="#0000FF">nil</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  26.                     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">blc1</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  27.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  28.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">blc1</FONT> <FONT face="Fixedsys" COLOR="#009999">1.0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  29.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  30.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">blc2</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getreal</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n请输入E(Y)方向比例尺:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  31.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">or</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">blc2</FONT> <FONT face="Fixedsys" COLOR="#0000FF">nil</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  32.                     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">blc2</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  33.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  34.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">blc2</FONT> <FONT face="Fixedsys" COLOR="#009999">1.0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  35.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  36.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;4、循环查询</SPAN></FONT>
  37.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">while</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">pti</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n点取要查询的点位:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  38.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">x</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">car</FONT> <FONT face="Fixedsys">pti</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  39.                       <FONT face="Fixedsys">y</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cadr</FONT> <FONT face="Fixedsys">pti</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  40.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  41.                 <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;根据比例尺计算实际坐标值</SPAN></FONT>
  42.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">x</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">*</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">/</FONT> <FONT face="Fixedsys">x</FONT> <FONT face="Fixedsys" COLOR="#009900">1000</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys">blc1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  43.                       <FONT face="Fixedsys">y</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">*</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">/</FONT> <FONT face="Fixedsys">y</FONT> <FONT face="Fixedsys" COLOR="#009900">1000</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys">blc2</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  44.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  45.                 <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;显示结果</SPAN></FONT>
  46.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">strcat</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\r查询结果:X="</FONT>
  47.                                <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">rtos</FONT> <FONT face="Fixedsys">x</FONT> <FONT face="Fixedsys" COLOR="#009900">2</FONT> <FONT face="Fixedsys" COLOR="#009900">4</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  48.                                <FONT face="Fixedsys" COLOR="#FF00FF">"        Y="</FONT>
  49.                                <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">rtos</FONT> <FONT face="Fixedsys">y</FONT> <FONT face="Fixedsys" COLOR="#009900">2</FONT> <FONT face="Fixedsys" COLOR="#009900">4</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>                               
  50.                        <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  51.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  52.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  53.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;5、恢复坐标系</SPAN></FONT>
  54.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_.UCS"</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"p"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  55.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_.UCS"</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"p"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  56.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;6、恢复系统变量设置</SPAN></FONT>
  57.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setvar</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"cmdecho"</FONT> <FONT face="Fixedsys">cmd_old</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  58.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  59.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;_结束 if</SPAN></FONT>
  60. <FONT face="Fixedsys"></FONT>
  61.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  62. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;_结束 defun</SPAN></FONT>
  63. </PRE>

本楼代码可参见:http://zml84.blog.sohu.com/45630808.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-5-14 10:38:13 | 显示全部楼层
楼上的格式怎么出来的,和vlisp代码编辑器的一模一样?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 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)
                )
应用什么办法解决?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2007-5-14 15:22:57 | 显示全部楼层
回复楼上:说实话,我其实不了解你的代码是做什么用的,
单就这一句来说,出错原因可能是:在做除法运算时,运算结果返回了整数所致。
<br>
解决方法是,将该处改成:

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


<br>
回复上上楼:
代码着色其实是将LISP代码变成htm代码,我的是通过一个LISP程序实现的,由于现在还不是太完善,所以没有发布。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-5-14 19:27:56 | 显示全部楼层
用于查询坐标
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-17 11:38 , Processed in 0.620225 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表