1、用AutoLISP语言编写一个名为“tu”的自定义函数。要求在AotuCAD编辑状态中运行函数tu时，在屏幕图形区显示如图结果。程序清单：
(defunc:tu(/p1p2p3p4pc1pc2x1y1x2y2x3y3x4y4x5y5x6y6)(setqx140.0y180.0)(setqp1(listx1y1))(setqx2(+(carp1)40.0)y2(cadrp1))(setqp2(listx2y2))(setqx3(carp2)y3(+(cadrp2)50.0))(setqp3(listx3y3))(setqx4(carp1)y4(cadrp3))(setqp4(listx4y4))(setqx5(carp2)y5(+(cadrp2)25.0))(setqpc1(listx5y5))(setqx6(carp1)y6(+(cadrp2)25.0))(setqpc2(listx6y6))(command\"arc\"p2\"ce\"pc1p3\"\")(command\"arc\"p4\"ce\"pc2p1\"\")(command\"line\"p1p2\"\")(command\"line\"p3p4\"\"))2、在AutoCAD编辑状态时运行函数图时。描述在屏幕图形区和文本区的现实结果。程序如下：(defunc：tu(／pclpc2rp1p2p3p4)(setqpcl(1ist50.060.0))(setqpc2(1ist50.020.0))(setqr20.0)
(setqp1(polarpcl0r))
1(setqp2(polarpclpir))(setqp3(polarpc20r))(setqp4(polarpc2pir))(princpclpc2rplp2p3p4)(command\"arc\"p1\"c\"pclp2)(command\"arc\"p4\"c\"pc2p3)(command\"line\"p1p3\"\")(command\"line\"p2p4\"\")
文本区结果：（50，60）（50，20）（70，60）（30，60）（70，20）（30，20）图形区结果：3、写出在AotuCAD编辑状态中运行函数tu时，在屏幕图形区和文本区的显示结果程序清单：
（defunc:tu(/(setq(setq(setq(setq(setq(setq(setq(setq(princx1p1x2p2x3p3x4p4p140.0(list(+p1y1x1p2p3p4x1y1x2y2x3y3x4y4)80.0)y1))p1)40.0)y2(cadrp1))(carx2p2)x3p1)x4p3p1(list(car(list(car(listp2\"line\"y2))y3(+(cadrp2)(50.0)))y3))y4(cadrp3))y4))p4)p2p3p4p1\"\")(command)2文本区结果：（40，80）（80，80）（80，130）（40，130）图形区结果：4、绘出在AotuCAD编辑状态中下述文件在屏幕上显示的对话框内容（填入图中）
h：dialog{
label=\"热处理方法\";：popup_list{
key=“test_popup_box”；edit_width=20；label=“热处理”；
list=“淬火＼n调质＼n回火＼n正火＼n退火”；}
ok_cancel；}
35、用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆、两条中心线并自动绘出中心与该圆同心的正方形(边长等于圆的半径)。程序清单：
(defunc:tu(/pc0pc1pc2pc3pc4p1p2p3p4rax0y0)(setqpc0(getpoint\"圆心\"))(setqr(getreal\"半径\"))(setqa(/r2))(setqx0(carpc0)y0(cadrpc0)(setqpc1(list(-x0a)(-y0a))(setqpc2(list(+x0a)(-y0a))(setqpc3(list(+x0a)(+y0a))(setqpc4(list(-x0a)(+y0a))(setqp1(polarpc0(/pi2)(+r5))(setqp2(polarpc00.0(+r5)))(setqp3(polarpc0(/(*pi3)2)(+r5)))(setqp4(polarpc0pi(+r5)))(command\"circle\"pc0r)(command\"line\"pc1pc2pc3pc4\"c\")(command\"line\"p1p3\"\")(command\"line\"p2p4\"\"))6、用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆、两条中心线和一个正方形（该正方形由该圆与中心线的四个交点的连线组成）。4程序清单：
(defunc:tu(/pc0pc1pc2pc3pc4p1p2p3p4r)(setqpc0(getpoint\"enteracentreofthecircle\"))(setqr(getreal\"enteraradiusofthecircle\"))(setqpc1(polarpc0(/pi2)r))(setqpc2(polarpc00.0r))(setqpc3(polarpc0(/(*pi3)2)r))(setqpc4(polarpc0pir))(setqp1(polarpc0(/pi2)(+r5));(setqp1(polarpc1(/pi2)5))(setqp2(polarpc00.0(+r5)));(setqp2(polarpc20.05))(setqp3(polarpc0(/(*pi3)2)(+r5)));(setqp3(polarpc3(/(*pi3)2)5))(setqp4(polarpc0pi(+r5)));(setqp4(polarpc4pi5))(command\"circle\"pc0r)(command\"line\"pc1pc2pc3pc4\"c\")(command\"line\"p1p3\"\")(command\"line\"p2p4\"\"))7、用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时
使用键盘输入两个同心圆的圆心坐标和每个圆的半径值，然后自动绘出这两个圆和水平、垂直的两条中心线。程序清单：
(defunc:tu(/pc0pc1pc2pc3pc4r1r2)(setqpc0(getpoint\"圆心\"))(setqr1(getreal\"小园半径\"))(setqr2(getdist\"大圆半径\"))(setqpc1(polarpc0(/pi2)(+r25)))(setqpc2(polarpc00(+r25)))(setqpc1(polarpc0(/(*pi3)2)(+r25)))(setqpc1(polarpc0pi(+r25)))(command\"circle\"pc0r1)(command\"circle\"pc0r2)5(command\"line\"pc1pc3\"\")(command\"line\"pc2pc4\"\"))8、用autolisp语言编写一个名为“tu”的自定义函数。要求执行此函数时使用
键盘输入每个圆的圆心坐标和每个圆的半径值.
1)计算两圆心连线长度及其与x轴正向的夹角，计算两圆的面积A1、A2和周长S1、S2。
2)绘出两个圆和两圆心的连线。程序清单：
(defunc:tu(/pc1pc2llaaa1a2s1s2r1r2)(setqpc1(getpoint\"圆心1\"))(setqpc2(getpoint\"圆心2\"))(setqr1(getreal\"半径1\"))(setqr2(getdist\"半径2\"))
(setqll(distancepc1pc2));计算俩圆心直线长度(setqaa(anglepc1pc2))；计算角度(setqa1(*pir1r1))(setqa2(*pir2r2))(setqs1(*pir12))(setqs2(*pir22))
(command\"circle\"pc1r1)(command\"circle\"pc2r2)(command\"line\"pc1pc2\"\")
(princpc1pc2r1r2llaaa1a2s1s2))
9、绘出在AotuCAD编辑状态中下述菜单文件在屏幕上显示的内容***pop11[标准件][轴承]^c^czhoucheng6[──][螺母]^c^cluomu[螺钉]^c^cluoding[垫圈]^c^cdianquan[──][销]^c^cxiao标准件轴承螺母螺钉垫片销10、绘出在AotuCAD编辑状态中下述文件在屏幕上显示的对话框内容sample：dialog{label=\"长度和直径\"；：edit_box{value=\"0.00\"；key=\"d\"；label=\"直径：\"；}：edit_box{value=\"0.00\"；key=\"l\"；label=\"长度：\"；}ok_cancel；}11、用AutoLISP语言编写一个自定义函数。要求执行此函数时使用键盘输入一个矩形截面长和宽的值，然后自动绘出该矩形，并绘出剖面线。程序清单：(defunc:tu(/pc0pc1pc2pc3pc4xcyca1a2b1b2)(setqpc0(getpoint\"中心点\"))(setqa1(getreal\"长度\"))(setqb1(getreal\"宽度\"))(setqa2(/a12))(setqb2(/b12))(setqxc(carpc0)yc(cadrpc0))(setqpc1(list(-xca2)(+ycb2)))(setqpc2(list(+xca2)(+ycb2)))(setqpc3(list(+xca2)(-ycb2)))(setqpc4(list(-xca2)(-ycb2)))(princpc1pc2pc3pc4a1b1)(command\"line\"pc1pc2pc3pc4pc1\"\");(command\"line\"pc1pc2pc3pc4\"c\")(command\"hatch\"\"ansi31\"1.5\"0\"\"w\"pc1pc3\"\");1.5为比例因子,0为填充角度,w为窗口)7确定取消长度直径0.000.00长度和直径12、绘出下述文件所描述的对话框在屏幕上显示的内容h:dialoge{lable=\"螺纹要素\";:popup_list{key=\"test_popup_box\";edit_width=20;lable=\"要素\";list=\"牙型\\n大径\\n旋向\\n线数\\n螺距\";}ok_cancle;}螺纹要素要素牙型大径旋向线数螺距okcancle13、写出在AutoCAD编辑状态下运行函数tu时，在屏幕图形区和文本区的现实结果。(defunc:tu(/pc1pc2pc3r)图形区结果：(setqpc1（list50.050.0))(setqr20)(setqpc2(polarpc1(/pi2)(*r2)))(setqpc3(polarpc2(/pi2)(*r2)))(princpc1pc2pc3r)(command\"circle\"pc1r)(command\"circle\"pc2r)(command\"circle\"pc3r)(command\"line\"pc1pc3\"\"))文本区结果：（50，50）（50，90）（50，130）2014、绘出在AutoCAD编辑状态中下述文件在屏幕上显示的两级下拉菜单的内容。***pop11[离合器][牙嵌式]^c^cyaqian[──][->摩擦片式]^c^cmocapian[干式]^c^cgan[<-湿式]^c^cshi[──][磁粉式]^c^ccifen8显示结果：一级菜单：离合器牙嵌式二级菜单：摩擦片式磁粉式15、用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆、两条中心线及与该圆外切的正方形.干式湿式程序清单：
(defunc:tuxing(/pc0pc1pc2pc3pc4p1p2p3p4rx0y0)(setqpc0(getpoint\"圆心\"))(setqr(getreal\"半径\"))(setqx0(carpc0)y0(cadrpc0)(setqpc1(list(-x0r)(-y0r))(setqpc2(list(+x0r)(-y0r))(setqpc3(list(+x0r)(+y0r))(setqpc4(list(-x0r)(+y0r))(setqp1(polarpc0(/pi2)(+r5))(setqp2(polarpc00.0(+r5)))(setqp3(polarpc0(/(*pi3)2)(+r5)))(setqp4(polarpc0pi(+r5)))(command\"circle\"pc0r)(command\"line\"pc1pc2pc3pc4\"c\")(command\"line\"p1p3\"\")(command\"line\"p2p4\"\"))16、写出在AutoCAD编辑状态下运行函数tx时，在屏幕图形区和文本区的现实结果。(defunc:tu(/p1p2p3p4p5p6p7p8)(setqp1(list100.050.0))(setqp2(list200.050.0))(setqp3(list200.0150.0))(setqp4(list100.0150.0))(setqp5(list120.070.0))(setqp6(polarp5060.0))(setqp7(polarp6(/pi2)60.0))(setqp8(polarp7pi60.0))(princp1p2p3p4p5p6p7p8)(command\"line\"p1p2p3p4p1)(command\"line\"p5p6p7p8p5)9)文本区结果：（100.0,50.0）（200.0,50.0）（200.0,150.0）(100.0,150.0)(120.0,70.0)(180.0,70.0)(180.0,130.0)(120.0,130.0)图形区显示结果：17、绘出在AotuCAD编辑状态中下述文件在屏幕上显示的对话框内容lb：dialog{
label=\"零件分类成族\"：list_box{
key=\"test_list_box\";label=\"零件族\";
list=\"设计族＼n加工族＼n数控族＼n管理族\";}
ok_cancel;}
显示对话框：零件分类成族
零件族设计族加工族数控族管理族
okcancle1018、用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输入一个水平线段两端的坐标，然后自动绘出该线段、并绘出以该线段两端点为园心的两个大小相等的相切园。程序清单：(defunc:tuing(/p1p2dr)(setqp1(getpoint\"输入第一点\"))(setqp2(getpoint\"输入第二点\"))(setqd(distancep1p2))(setqr(/d2))(command\"circle\"p1r)(command\"circle\"p2r)(command\"line\"p1p2\"\"))19、在AutoCAD编辑状态时运行函数图时。描述在屏幕图形区和文本区的现实结果。程序如下：(defunc：tu(／pclpc2rp1p2p3p4)(setqpcl(1ist50.050.0))(setqpc2(1ist100.050.0))(setqr15.0)
(setqp1(polarpcl(/pi2)r))(setqp2(polarpcl(/(*pi3)2)r))(setqp3(polarpc2(/pi2)r))
(setqp4(polarpc2(/(*pi3)2)r))(princpclpc2rplp2p3p4)(command\"arc\"p1\"c\"pclp2)(command\"arc\"p4\"c\"pc2p3)(command\"line\"p1p3\"\")(command\"line\"p2p4\"\")
文本区结果：
(50.0,50.0)(100.0,50.0)(50.0,65.0)(50.0,35.0)(100.0,65.0)(100.0,35.0）图形区显示结果：
1120、绘出在AotuCAD编辑状态下,菜单文件在屏幕上显示的两级下拉菜单内容***pop11[螺纹][普通螺纹]^c^cptlw[──][梯形螺纹]^c^ctxlw[──][->管螺纹]^c^cglw[公制管螺纹]^c^cgzglw[<-英制管螺纹]^c^cyzglw显示结果：螺纹普通螺纹梯形螺纹管螺纹公制管螺纹英制管螺纹21、用AutoLISP语言编写一个名为“tuxing”的自定义函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆和与该园同心的正方形（该正方形对角线长度等于圆直径的2倍，且有一对角线为水平线）。程序清单：
(defunc:tu(/pcp1p2p3p4r)(setqpc0(getpoint\"输入圆心\"))(setqr(getreal\"输入半径\"))(setqp1(polarpc(/pi2)(*r2)))(setqp2(polarpc0.0(*r2)))(setqp3(polarpc(/(*pi3)2)(*r2)))(setqp4(polarpcpi(*r2)))(command\"circle\"pc0r)(command\"line\"pc1pc2pc3pc4\"c\"))图形：12
因篇幅问题不能全部显示，请点此查看更多更全内容