利用autolisp编程“空间前方交会”程序设计

《利用autolisp编程“空间前方交会”程序设计》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、作业（四）利用AUTOLISP编程“空间前方交会”程序设计一、作业0的巩固空间前方交会的知识，学会利用AUTOLISP编程“空间前方交会”程序设计，掌握程序设计基本原理和方法。二、作业内容与要求内容：利用AUTOLISP编程“空间前方交会”程序设计，写出相应代码，并运行程序，确保程序的完整。要求：代码完整有效，并有详细截图三、数据准备空间前方交会算例输入数据：2.00;基准尺长度3.22;基线近似长度0.10;两侧站高差60.50520474.09493540.06527980.06266329.03443880.09327483.13309973.3214

2、233;目标点个数88.02498260.59553537.55172172.28339153.52112667.29062264.00393966.51349436.51534074.011574101.28184766.340716四、作业方法与步骤如图1所示，空间前方交会原理。作业步骤：1、打开CAD2006，运行VisualLisp程序，并输入代码并保存。2、在CAD2006屮加载已经写好的空间前方交会Lisp程序，成功加载后在T面的命令栏中输入“spsec”然后按冋车键。3、调入已经写好的“空间前方交会算例输入数据”文件。4、将输出数据的文件名命名

3、为“输出数据”。图1空间前A交会原理五、结果实现:十卜AutoCAD2006-[Drawingl.dwg]@文件(F)賴(E)视囝(V)插入m格式(O)Ifi(T)绘图(D)标注(N)修改(M:i窆二A'<帮助(H)I□该hi备［^纷叫髦oe钇哽丨药囫匦屬a圃

4、wncjlrl001HoOI^Q■!W4^^—^□□□□+oEDD-/-----/nutrh□二指定高度<0.0400〉：0.040000000000000指定文字的旋转角度<0>:0输入文字：3.8015侖令：SPSEC来知侖令ISPSECU桉F1査看雜助

5、。命合：text当的文字样式：Standard当骱文字高度：0.0400指定文字的起点或［对正(J)/样式(S)］:指定高度<0.0400>:0.040000000000000指定文字的旋转角度<0>:0输入文字：2.8506侖令：SPSEC来知命令ISPSECI。按F1査看韜助。金令：text当舫文字择式：Standard当前文字商度：0.0400命令：►4.1961,-0.3969,0.0000捕捉棚格1正專阪运I对象捕¥I对象追踪k多ef六、程序代码(defunangtorad(/ABCDE)(setqdms(atofang))(setqA(fixdm

6、s))(setqB(*(-dmsA)100))(setqC(fixB))(setqD(*(-BC)100))(setqE(+A(/C60.0)(/D3600)))(setqhu(*(/E180)PI)));endsub(AngletoRadian)(defunintersec(/CDzlz2Fpip2p3)(setqC(+AB)D(*bO(/(sinB)(sinC))))(setqx(*D(cosA))y(*D(sinA)))(setqzl(*D(/(cosZa)(sinZa))))(setqz2(+(*D(/(sinA)(sinB)(/(sinZb)(co

7、sZb))))h))(setqz(/(+zlz2)2)dz(-zlz2))(if(=out"y")(progn(setqP(listxyz))(command"poinfP)(commandMlinenPPA,H,)(commandMlineMPFB,,n)(setqpi(list(+x0.03)(-y0.05)z))(setqp2(list(+x0.03)(-y0.10)z))(setqp3(list(+x0.03)(-y0.15)z))(command"text"pi0.040(rtosx24)"")(command"text"p20.040(rtosy

8、24)(commandMtextnp30.040(rtosz24)',H)(princ•¥’f2)(princ"x=Mf2)(Princ(rtosx25)f2)(princ"y=,'f2)(princ(rtosy25)f2)(princ"z="f2)(princ(rtosz25)f2)(princ"dz="f2)(princdzf2)));endprognendif);endsub(Intersection)(defunreadline(/line)(setqline(read-linefl))(setqang(substrline112))(angtora

9、d)(setqAhu)(setqang(substr