|
阅读：2251回复：6
[分享]平面距离写入文件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> |
|
|
1楼#
发布于：2004-07-25 11:01
<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" />
|
|
|
2楼#
发布于：2004-11-14 22:38
<P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /></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" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
3楼#
发布于：2004-11-15 11:26
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em04.gif" />
|
|
|
4楼#
发布于：2005-02-24 22:27
<img src="http://www.gisempire.com/bbs/Skins/Default/emot/em03.gif"><img src="http://www.gisempire.com/bbs/Skins/Default/emot/em04.gif">
|
|
|
|
5楼#
发布于：2005-03-13 16:52
<P>很简单的程序，稍为会lisp的都能写出来。</P>
|
|
|
6楼#
发布于：2005-05-28 00:55
简直是<img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em03.gif" />
|
|
|