建筑轴线坐标计算

yjpzc

1. (princ "数据文件格式：dh,,y,x,h")
   
2. (princ "\n")
   
3. (defun C:zxjs()
   
4.        (setq ffn(getfiled "选取要存放坐标的目录" "" "dat" 1))
   
5.        (setq ff(open ffn "w"))
   
6.        (setq zx(getreal "\n输入起点的X坐标:"))
   
7.        (setq zy(getreal "\n输入起点的y坐标:"))
   
8.        (setq ang1(getreal "\n输入起点方向方位角:"))
   
9.        (setq ang(* ang1(/ pi 180)))
   
10.        (setq qzh(getreal "\n 输入起点桩号:"))
    
11.        (setq nf 1)
    
12.        ;-----------------------------------     
    
13.        (while
    
14.               (setq jzh(getreal "\n 输入计算点桩号:"))
    
15.               (if (/= jzh nil)
    
16.               (progn
    
17.               (setq ss(getreal "\n 输入计算点距中桩距<左为负><右为正>:"));----------------
    
18.               (setq jj1(getreal "\n 输入计算点与前进方向夹角<0-180度>:"));---------------
    
19.               (setq jj(* jj1(/ pi 180)))
    
20.               (setq ee(- jzh qzh))
    
21.               (setq x(atof (rtos (+ zx (+(* ee (cos ang)) (* ss (cos (+ ang jj))))) 2 3 )));;;取得轴线x坐标
    
22.               (setq y(atof (rtos (+ zy (+(* ee (sin ang)) (* ss (sin (+ ang jj))))) 2 3)));;;取得轴线y坐标
    
23.               ;(setq dh(cons jzh ss))
    
24.               (princ nf ff)
    
25.               (princ ",," ff)
    
26.               (princ y ff)
    
27.               (princ "," ff)
    
28.               (princ x ff)
    
29.               (princ "," ff)
    
30.               (princ 0 ff)
    
31.               (princ "\n" ff)
    
32.               )
    
33.               )
    
34.               (setq nf(1+ nf))   
    
35.         )
    
36.        (close ff)
    
37.        (princ (strcat "\n 写出坐标" ffn))
    
38.        (prin1)
    
39.        )

(princ "数据文件格式：dh,,y,x,h")<br /> (princ "\n")<br /> (defun C:zxjs()<br />        (setq ffn(getfiled "选取要存放坐标的目录" "" "dat" 1))<br />        (setq ff(open ffn "w"))<br />        (setq zx(getreal "\n输入起点的X坐标:"))<br />        (setq zy(getreal "\n输入起点的y坐标:"))<br />        (setq ang1(getreal "\n输入起点方向方位角:"))<br />        (setq ang(* ang1(/ pi 180)))<br />        (setq qzh(getreal "\n 输入起点桩号:"))<br />        (setq nf 1) <br />        ;-----------------------------------     <br />        (while <br />               (setq jzh(getreal "\n 输入计算点桩号:")) <br />               (if (/= jzh nil)<br />               (progn<br />               (setq ss(getreal "\n 输入计算点距中桩距<左为负><右为正>:"));----------------<br />               (setq jj1(getreal "\n 输入计算点与前进方向夹角<0-180度>:"));---------------<br />               (setq jj(* jj1(/ pi 180)))<br />               (setq ee(- jzh qzh))<br />               (setq x(atof (rtos (+ zx (+(* ee (cos ang)) (* ss (cos (+ ang jj))))) 2 3 )));;;取得轴线x坐标<br />               (setq y(atof (rtos (+ zy (+(* ee (sin ang)) (* ss (sin (+ ang jj))))) 2 3)));;;取得轴线y坐标<br />               ;(setq dh(cons jzh ss))<br />               (princ nf ff)<br />               (princ ",," ff)<br />               (princ y ff)<br />               (princ "," ff)<br />               (princ x ff)<br />               (princ "," ff)<br />               (princ 0 ff)<br />               (princ "\n" ff) <br />               ) <br />               ) <br />               (setq nf(1+ nf))    <br />         )<br />        (close ff)<br />        (princ (strcat "\n 写出坐标" ffn))<br />        (prin1)<br />        )

461045462

谢谢楼主的分享
收藏下来试一试，学习学习
谢谢

461045462

试了试，只有文件名，里面没有数据，不知是为什么？
请指教
谢谢

yjpzc

把while 后的(/=  qzh  nil)去掉就可以了

yoyoho

yjpzc 你可以说明如何使用吗?
试了试，只有文件名，里面没有数据

yjpzc

回复 yoyoho 的帖子

C:\Documents and Settings\Administrator\桌面\GIF动画录制\222.gif