wawbt 发表于 2006-7-21 11:05:00

算方位角的程序

我同事算了一个算方位角的程序，但运行时出错，不知错在哪？请高手帮忙！

yshf 发表于 2006-7-21 11:42:00

<P>把程序贴出来呀。</P>

wawbt 发表于 2006-7-21 15:27:00

原程序，上午上传未成功！

f5612140 发表于 2006-7-21 15:49:00

<P>(setq txt (angtostr txt))<BR>(setq txt (rtos (atof txt) 2 2))</P>

wawbt 发表于 2006-7-22 08:05:00

<P><A name=24594><FONT color=#000066><B>f5612140</B></FONT></A>兄：程序出现如下错误，不知何意？请赐教！</P>
<P>No.1 point to output:<BR>endpoint on axis(二、三象限):; 错误: 要绑定的对象不正确: T<BR>命令:</P>

f5612140 发表于 2006-7-22 08:32:00

<P>将T改为其他的变数</P>
<P>(DEFUN ANGTOSTR ( A / TT )<BR>&nbsp;(SETQ A (/ (* A 180.0) PI))<BR>&nbsp;(SETQ TT (ITOA (FIX A)))<BR>&nbsp;(sETQ A (* (REM A 1) 60))<BR>&nbsp;(sETQ TT (STRCAT TT "%%D" (ITOA (FIX A))))<BR>&nbsp;(sETQ A (* (REM A 1) 60))<BR>&nbsp;(sETQ TT (STRCAT TT "'" (RTOS A 2 2)))<BR>&nbsp;(SETQ TT (STRCAT TT "\" "))<BR>)</P>

wawbt 发表于 2006-7-22 16:00:00

谢<A name=24684><FONT color=#000066><B>f5612140</B></FONT></A> 兄指点！

ls_bocai 发表于 2006-7-26 11:28:00

<P>自己编的计算坐标方位角，可以参考</P>

ls_bocai 发表于 2006-7-26 11:29:00

dxhy 发表于 2006-7-27 15:06:00

对LISP不是很懂，只懂VBA
页: [1]
查看完整版本: 算方位角的程序