[分享]平面距离写入文件LISP源码（S－文件）

<FONT face=隶书 color=#f73809 size=1>　　这是我很多年以前写的一个小程序，可量取地物点间的平面距离，主要用来检查地形图的平面相对精度，现在我早已不再搞LISP了，基本上也不再写代码了！这样的程序还有好多好多，在生产上曾起到过很重要的作用，丢掉了实在可惜，今后将在论坛上相继发表，希望对各位能有所帮助！</FONT>
<P><FONT face=隶书 size=1>;-----------------------------------------------------------------</FONT></P>
<P>;<FONT face=隶书 color=#f73809 size=1>地形图的平面距离</FONT>写入文件LISP源码<FONT color=#f73809>（S－文件）</FONT></P>
<P>;-----------------------------------------------------------------</P>
<P>(defun  C:JFHS()
           (setvar "cmdecho" 0)
           ;;;(setvar "osmode" 0)
           (princ "\n")(setq pf (getstring "请输入坐标数据文件名:"))
           (setq pf (strcat pf ".dat"))
           (setq fw (open pf "w"))
           (princ "\n")(princ "请捕捉第1点(按回车结束)" )
(setq pta (getpoint))</P>
<P>
           (setq i 1)
           (while (/= pta nil)
(princ "\n")(princ "请捕捉第2点(按回车结束)" )
(setq ptb (getpoint))
  
                   (setq xa (car pta))
                   (setq ya (nth 1 pta))</P>
<P>                   (setq xb (car ptb))
                   (setq yb (nth 1 ptb))
                   (setq ss (distance (list xa ya) (list xb yb)))</P>

<P>                   (princ "\n")(princ "第")(princ i)(princ "个距离为:")
                   (princ ss)
                   (princ i fw)(princ "," fw)(princ ss fw)
                  
                   (princ "\n" fw)
                   (setq i (1+ i))</P>
<P>            (princ "\n")(princ "请捕捉第1点(按回车结束)" )
(setq pta (getpoint))</P>
<P>                 )
           (CLOSE FW)
       )</P>
<P>
 </P>

<P>本程序主要适合总工或主任工程师使用，可以省下很多的时间和人力！！！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />