edgar2lee 发表于 2009-4-6 11:46:00

[求助]请帮我看下我的编程思路还可行？

<p>要实现cass三点房屋自动成图，编码文件f1，2，3，c。坐标数据文件中有1，2，3点的坐标。</p><p>编写一个程序，该程序可调用坐标数据文件中的坐标，并根据这三点坐标计算出第四点坐标，并将值返回到c。</p><p>计算公式为：Xc=X1+X2-X3 , Yc=Y1+Y2-Y3 。</p><p>请问这个程序用LISP可否实现？</p>

ZZXXQQ 发表于 2009-4-6 19:59:00

可以实现。

edgar2lee 发表于 2009-4-7 22:09:00

要用到哪些LISP表达式呀？我还不会LISP呢。。

ZZXXQQ 发表于 2009-4-8 20:56:00

<p>要用到函数:+,-,setq,……<br/>建议先看书或本论坛下载的电子版教材。</p>

luojie454870 发表于 2009-4-9 19:50:00

<p>;假设1,2,3点已知，且分别为p1,p2,p3。</p><p>;求pc.</p><p></p><p>;以下为取得各点坐标</p><p>(setq x1 (car p1))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;取得p1横坐标</p><p>(setq y1 (cadr p1))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;取得p1纵坐标</p><p>(setq x2 (car p2))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;取得p2横坐标</p><p>(setq y2 (cadr p2))&nbsp;&nbsp;&nbsp;&nbsp; ;取得p2纵坐标</p><p>(setq x3 (car p3))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;取得p3横坐标</p><p>(setq y3 (cadr p3))&nbsp;&nbsp;&nbsp;&nbsp; ;取得p3纵坐标</p><p>;以下为计算点pc</p><p>(setq xc&nbsp;(-&nbsp;(+ x1 x2)&nbsp;x3) )&nbsp;&nbsp;&nbsp; ;计算，xc=x1+x2-x3 (运算顺序由括号内到括号外）</p><p>(setq yc&nbsp;(-&nbsp;(+ y1 y2)&nbsp;y3) )&nbsp;&nbsp;&nbsp; ;计算，yc=y1+y2-y3</p><p>(setq pc (list xc yc))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;pc为(xc yc)</p><p>;完成</p>

edgar2lee 发表于 2009-4-9 19:51:00

<p>太感谢了。。</p>

edgar2lee 发表于 2009-4-9 20:45:00

这样直接能调用坐标数据文件中的坐标嘛？

wang_weihai 发表于 2009-4-22 17:10:00

edgar2lee发表于2009-4-9 20:45:00static/image/common/back.gif这样直接能调用坐标数据文件中的坐标嘛？

<p>可以啊,可以通过读取文件,将坐标值提供给变量，书上有例子，很简单的，照着书改一下就行了．</p>
页: [1]
查看完整版本: [求助]请帮我看下我的编程思路还可行？