[求助]：一个自编的标注坐标点的lsp程序，请大家帮我找错误。先谢了。

wee

问题是在程序设置osmode后，直线没有按制定的点画线，有点莫名其妙。顺便问一句，Vlisp中怎样设置才能看到程序一行一行的执行，设置了自动执行后，我只看到工具拦上的"(|)"动来动去，文本编辑区没反映。

该程序的功能是在ACAD2002中文版中标注施工图总图中坐标点。该程序如下：

2. <normalfont>
   
3. (defun c:zbbz
   
4.        (/ os pt1 pt2 pt1_1 pt1_2 pt1_3 pt1_4 pt2_1 textpt1 textpt2 ang chksty str)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq os (getvar "osmode"))
   
7.           (if (< os 16384)
   
8.              (setq os (+ os 16384))
   
9.          )
   
10.   (setvar "osmode" 1)
    
11.   (setq pt1 (getpoint "\n标注点:"))
    
12.   (setq pt1_1 (polar pt1 (* pi 0.25) 1000))
    
13.   (setq pt1_2 (polar pt1 (* pi 0.75) 1000))
    
14.   (setq pt1_3 (polar pt1 (* pi 1.25) 1000))
    
15.   (setq pt1_4 (polar pt1 (* pi 1.75) 1000))
    
16.   (command "line" pt1_1 pt1_3 "")
    
17.   (command "line" pt1_2 pt1_4 "")
    
18.   (setq pt2 (getpoint pt1 "\n给出标注位置:"))
    
19.   (command "line" pt1 pt2 "")
    
20.   (setq        ang (angle pt1 pt2))
    
21.   (if (or (and (>= ang 0) (<= ang (* pi 0.5)))
    
22.           (and (> ang (* pi 1.5)) (< ang (* pi 2)))
    
23.       )
    
24. 
    
25.     (progn (setq pt2_1 (polar pt2 0 13000))
    
26.            (setq textpt1 (polar pt2 (/ pi 2) 500))
    
27.            (setq textpt2 (polar pt2 (/ pi -2) 2150))
    
28.     ))
    
29.   (if (and (> ang (/ pi 2)) (<= ang (* pi 1.5)))
    
30.           
    
31.     (progn (setq pt2_1 (polar pt2 0 -13000))
    
32.            (setq textpt1 (polar pt2_1 (/ pi 2) 500))
    
33.            (setq textpt2 (polar pt2_1 (/ pi -2) 2150))
    
34.     )
    
35.   )
    
36.   (command "line" pt2 pt2_1 "")
    
37.   (setq str "zz")
    
38.   (setq chksty (tblsearch "style" str))
    
39.   (if (= chksty nil)
    
40.     (command "style" str "gbenor,gbcbig" "" "" "" "" "" "")
    
41.   )
    
42.   (command "text"
    
43.            textpt1
    
44.            1750
    
45.            0
    
46.            (strcat "X=" (rtos (cadr pt1)))
    
47.   )
    
48.   (command "text"
    
49.            textpt2
    
50.            1750
    
51.            0
    
52.            (strcat "Y=" (rtos (car pt1)))
    
53.   )
    
54.   (setvar "osmode" os)
    
55.   (princ)
    
56. )
    
57. </normalfont>

<normalfont><br /> (defun c:zbbz<br />        (/ os pt1 pt2 pt1_1 pt1_2 pt1_3 pt1_4 pt2_1 textpt1 textpt2 ang chksty str)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />           (if (< os 16384)<br />              (setq os (+ os 16384))<br />          )<br />   (setvar "osmode" 1)<br />   (setq pt1 (getpoint "\n标注点:"))<br />   (setq pt1_1 (polar pt1 (* pi 0.25) 1000))<br />   (setq pt1_2 (polar pt1 (* pi 0.75) 1000))<br />   (setq pt1_3 (polar pt1 (* pi 1.25) 1000))<br />   (setq pt1_4 (polar pt1 (* pi 1.75) 1000))<br />   (command "line" pt1_1 pt1_3 "")<br />   (command "line" pt1_2 pt1_4 "")<br />   (setq pt2 (getpoint pt1 "\n给出标注位置:"))<br />   (command "line" pt1 pt2 "")<br />   (setq        ang (angle pt1 pt2))<br />   (if (or (and (>= ang 0) (<= ang (* pi 0.5)))<br />           (and (> ang (* pi 1.5)) (< ang (* pi 2)))<br />       )<br /> <br />     (progn (setq pt2_1 (polar pt2 0 13000))<br />            (setq textpt1 (polar pt2 (/ pi 2) 500))<br />            (setq textpt2 (polar pt2 (/ pi -2) 2150))<br />     ))<br />   (if (and (> ang (/ pi 2)) (<= ang (* pi 1.5)))<br />           <br />     (progn (setq pt2_1 (polar pt2 0 -13000))<br />            (setq textpt1 (polar pt2_1 (/ pi 2) 500))<br />            (setq textpt2 (polar pt2_1 (/ pi -2) 2150))<br />     )<br />   )<br />   (command "line" pt2 pt2_1 "")<br />   (setq str "zz")<br />   (setq chksty (tblsearch "style" str))<br />   (if (= chksty nil)<br />     (command "style" str "gbenor,gbcbig" "" "" "" "" "" "")<br />   )<br />   (command "text"<br />            textpt1<br />            1750<br />            0<br />            (strcat "X=" (rtos (cadr pt1)))<br />   )<br />   (command "text"<br />            textpt2<br />            1750<br />            0<br />            (strcat "Y=" (rtos (car pt1)))<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> </normalfont>

XDSoft

最初由 wee 发布
[B]问题是在程序设置osmode后，直线没有按制定的点画线，有点莫名其妙。顺便问一句，Vlisp中怎样设置才能看到程序一行一行的执行，设置了自动执行后，我只看到工具拦上的"(|)"动来动去，文本编辑区没反映。

该程序的... [/B]

先说说，你想要求怎么画，而程序是怎么画的吧。

zhynt

我想原因就是你在以开始用了（setvar “osmode” 1），将捕捉模式设为端点模式的缘故，虽然这有助于你定点，但你应在程序开始自动画图前将它关闭，因这时已不需要捕捉了。
就想这样：

2. 
   
3. (defun c:zbbz
   
4.               (/       os      pt1     pt2     pt1_1   pt1_2   pt1_3
   
5.                pt1_4   pt2_1   textpt1 textpt2 ang     chksty  str
   
6.               )
   
7.   (setvar "cmdecho" 0)
   
8.   (setq os (getvar "osmode"))
   
9.   (if (< os 16384)
   
10.     (setq os (+ os 16384))
    
11.   )
    
12.   (setvar "osmode" 1)
    
13.   (setq pt1 (getpoint "\n标注点:"))
    
14.   (setq pt1_1 (polar pt1 (* pi 0.25) 1000))
    
15.   (setq pt1_2 (polar pt1 (* pi 0.75) 1000))
    
16.   (setq pt1_3 (polar pt1 (* pi 1.25) 1000))
    
17.   (setq pt1_4 (polar pt1 (* pi 1.75) 1000))
    
18.   (setvar "osmode" os)                                ;在这里关闭捕捉模式
    
19.   (command "line" pt1_1 pt1_3 "")
    
20.   (command "line" pt1_2 pt1_4 "")
    
21.   (setq pt2 (getpoint pt1 "\n给出标注位置:"))
    
22.   (command "line" pt1 pt2 "")
    
23.   (setq ang (angle pt1 pt2))
    
24.   (if (or (and (>= ang 0) (<= ang (* pi 0.5)))
    
25.           (and (> ang (* pi 1.5)) (< ang (* pi 2)))
    
26.       )
    
27. 
    
28.     (progn (setq pt2_1 (polar pt2 0 13000))
    
29.            (setq textpt1 (polar pt2 (/ pi 2) 500))
    
30.            (setq textpt2 (polar pt2 (/ pi -2) 2150))
    
31.     )
    
32.   )
    
33.   (if (and (> ang (/ pi 2)) (<= ang (* pi 1.5)))
    
34. 
    
35.     (progn (setq pt2_1 (polar pt2 0 -13000))
    
36.            (setq textpt1 (polar pt2_1 (/ pi 2) 500))
    
37.            (setq textpt2 (polar pt2_1 (/ pi -2) 2150))
    
38.     )
    
39.   )
    
40.   (command "line" pt2 pt2_1 "")
    
41.   (setq str "zz")
    
42.   (setq chksty (tblsearch "style" str))
    
43.   (if (= chksty nil)
    
44.     (command "style" str "gbenor,gbcbig" "" "" "" "" "" "")
    
45.   )
    
46.   (command "text"
    
47.            textpt1
    
48.            1750
    
49.            0
    
50.            (strcat "X=" (rtos (cadr pt1)))
    
51.   )
    
52.   (command "text"
    
53.            textpt2
    
54.            1750
    
55.            0
    
56.            (strcat "Y=" (rtos (car pt1)))
    
57.   )
    
58.   (setvar "osmode" os)
    
59.   (princ)
    
60. )
    

<br /> (defun c:zbbz<br />               (/       os      pt1     pt2     pt1_1   pt1_2   pt1_3<br />                pt1_4   pt2_1   textpt1 textpt2 ang     chksty  str<br />               )<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (if (< os 16384)<br />     (setq os (+ os 16384))<br />   )<br />   (setvar "osmode" 1)<br />   (setq pt1 (getpoint "\n标注点:"))<br />   (setq pt1_1 (polar pt1 (* pi 0.25) 1000))<br />   (setq pt1_2 (polar pt1 (* pi 0.75) 1000))<br />   (setq pt1_3 (polar pt1 (* pi 1.25) 1000))<br />   (setq pt1_4 (polar pt1 (* pi 1.75) 1000))<br />   (setvar "osmode" os)                                ;在这里关闭捕捉模式<br />   (command "line" pt1_1 pt1_3 "")<br />   (command "line" pt1_2 pt1_4 "")<br />   (setq pt2 (getpoint pt1 "\n给出标注位置:"))<br />   (command "line" pt1 pt2 "")<br />   (setq ang (angle pt1 pt2))<br />   (if (or (and (>= ang 0) (<= ang (* pi 0.5)))<br />           (and (> ang (* pi 1.5)) (< ang (* pi 2)))<br />       )<br /> <br />     (progn (setq pt2_1 (polar pt2 0 13000))<br />            (setq textpt1 (polar pt2 (/ pi 2) 500))<br />            (setq textpt2 (polar pt2 (/ pi -2) 2150))<br />     )<br />   )<br />   (if (and (> ang (/ pi 2)) (<= ang (* pi 1.5)))<br /> <br />     (progn (setq pt2_1 (polar pt2 0 -13000))<br />            (setq textpt1 (polar pt2_1 (/ pi 2) 500))<br />            (setq textpt2 (polar pt2_1 (/ pi -2) 2150))<br />     )<br />   )<br />   (command "line" pt2 pt2_1 "")<br />   (setq str "zz")<br />   (setq chksty (tblsearch "style" str))<br />   (if (= chksty nil)<br />     (command "style" str "gbenor,gbcbig" "" "" "" "" "" "")<br />   )<br />   (command "text"<br />            textpt1<br />            1750<br />            0<br />            (strcat "X=" (rtos (cadr pt1)))<br />   )<br />   (command "text"<br />            textpt2<br />            1750<br />            0<br />            (strcat "Y=" (rtos (car pt1)))<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />

这是一个漫好的程序
最好能自己设置坐标原点，这样程序更通用。
在使用过程中我发现一个问题，如图：
就是计算时的正负值有误。

efan2000

看看帮助，取值反了。

1. 
   
2.   [FONT=courier new]
   
3. car 返回表的第一个元素
   
4. cadr 返回表的第二个元素
   
5.   [/FONT]
   

复制代码

在你的程序中是这样子用的：

2. 
   
3.   [FONT=courier new]
   
4. (command "text"
   
5.            textpt1
   
6.            1750
   
7.            0
   
8.            (strcat "X=" (rtos (cadr pt1)))
   
9.   )
   
10.   (command "text"
    
11.            textpt2
    
12.            1750
    
13.            0
    
14.            (strcat "Y=" (rtos (car pt1)))
    
15.   )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (command "text"<br />            textpt1<br />            1750<br />            0<br />            (strcat "X=" (rtos (cadr pt1)))<br />   )<br />   (command "text"<br />            textpt2<br />            1750<br />            0<br />            (strcat "Y=" (rtos (car pt1)))<br />   )<br />   [/FONT]<br />

zhynt

真是这样的，其实那另两个也是错的，我只注意到了符号反了。现在好了

wee

对不起，我顺便说一句，建筑施工图里的总图上标注的坐标点(X,Y),X指的是南北方向，y指东西方向，所以和AutoCAD里是反的。
关于负值问题，我们的建筑施工图总图上的坐标点在“米”一级都是上万的，不会有负值出现，所以我没有发现错误。会不会是rtos函数的原因？
我会根据你们的提示修改一下程序。
我刚才想到，在用户UCS里标世界坐标系的坐标的方法（trans  pt 1 0），可以在总图上建筑平面是个斜的时候，转到用户UCS时建筑平面是个水平竖直时，标原UCS（世界坐标系）的坐标，lisp真是太方便了。
作这个小程序的原因是天正5和理正都不能满足我在工作中的需要。我还想完善画图比例，设置标注小数点的位数等等，争取是个较通用的程序。在等我完善后，还作个dcl对话框拿出来，请大家猛批一下。

zhynt

我也画过总图，关于不会出现负值我看不一定，这要看你将坐标原点定在哪里，如果将它设在图的左下方，就全是正的，反之就全是负的，在建筑总图上要将建筑物定位，先要找一个参照点，一般是已建的永久建筑物，他的位置可不一定在图的左下角噢。
你的说法在城市坐标系上到是合适的，他是不会有负值的，至少我没见过。

tuger

1. [font=courier new]
   
2. 第6 贴
   
3. 对不起，我顺便说一句，建筑施工图里的总图上标注的坐标点(X,Y),X指的是南北方向，y指东西方向，所以和AutoCAD里是反的。
   
4. 关于负值问题，我们的建筑施工图总图上的坐标点在“米”一级都是上万的，不会有负值出现，所以我没有发现错误。会不会是rtos函数的原因？
   
5. 我会根据你们的提示修改一下程序。
   
6. 我刚才想到，在用户UCS里标世界坐标系的坐标的方法（trans pt 1 0），可以在总图上建筑平面是个斜的时候，转到用户UCS时建筑平面是个水平竖直时，标原UCS（世界坐标系）的坐标，lisp真是太方便了。
   
7. 作这个小程序的原因是天正5和理正都不能满足我在工作中的需要。我还想完善画图比例，设置标注小数点的位数等等，争取是个较通用的程序。在等我完善后，还作个dcl对话框拿出来，请大家猛批一下。
   
8. [/font]

复制代码

我想你说的天正和理正不好用是因为他们不能修改吧，试用一下下面的吧，命令是zxet
另外标坐标点命令是zxbzb，可以选择保留的小数点位数，比例用字高来调整，一般1:500的
总图珂采用900高
http://www.xdcad.net/forum/showthread.php?s=&threadid=24873

eachy

所以我用自己写的。

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?postid=112449#post112449">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

ll_j

ALisp使用VL编辑器调试最常用的几个按钮：

wee

最初由 zhynt 发布
[B]我也画过总图，关于不会出现负值我看不一定，这要看你将坐标原点定在哪里，如果将它设在图的左下方，就全是正的，反之就全是负的，在建筑总图上要将建筑物定位，先要找一个参照点，一般是已建的永久建筑物，他的位置... [/B]

你说的对，我是做地铁车站设计的遇到的问题，那是在城市坐标系下。出现负值也不要紧，只是我把X,Y对调，是负的就是负的。你说的对，与原点有关，那就先设置UCS吧。

cah

不知道怎么改比例，能在1；1000中用，请帮忙

luhao_2000

程序可以