[必看]：AutoLISP习题

wangyi05j5

1．求解下列AutoLISP函数
Command：（+ 2 30 5 50）              Command：（+ 2 30 4 55.0）
（- 20 40）     （- 30.0 40.0）      （* 72 5 3 2.0）     （* 7 -5.5）
（/ 299 -5）    （/ -200 -9.0）      （l- 99）            （l- -18.5）
（abs -90）     （abs -27.5）        （sin pi）           （sin l.5）
（cos Pi）      （cos 1.2）          （atan l.1 0.0）      （atan -0.4  0.0）
（angtos 1.5708 0 5） （angtos -1.5708 0 3）  (<“X"“y”）  (>= 80 90 79）
2．setq函数用于给       赋值
3．     函数暂停程序的运行，允许用户输入一个点的X、Y坐标或X、Y、Z坐标。
4        函数用于在AutoLISP程序内执行标准的AutoCAD命令。
5．一个AutoLISP表达式中的AutoCAD命令名及命令选项必须置于双引号中。（F/T）
6．Getdist函数暂停程序的运行，等候用户输入    并以实数形式返回该距离。
7．        函数为AutoCAD系统变量赋值。系统变量名必须置于      中。
8.cadr函数执行两个操作，    和     ，来返回列表中第二个元素。
9．     函数类似于\n一样在屏幕上打印一个新行。
10．       函数暂停程序的运行，等候用户输入角度，并以弧度形式返回该角度值。
11．       函数总是以正X轴及逆时针方向测量角度。
12．____函数暂停程序的运行，等候用户输入一个整数。即使输入一个实数，该函数仍返回一个整数。
13．      函数允许检索AutoCAD系统变量的值。
14．        函数根据与给定点的角度和距离来定义点。
15．        函数计算一个数的平方根，并且总是返回一个实数。
16．        函数将一个实数转换为字符串，并将该字符串返回。
17．if函数求解测试表达式（> num1 num2）。若条件为真返回＿，不为真返回＿。
18．        函数可以与if函数搭配以求解多个表达式。
19．While函数求解测试表达式，若条件为真（表达式不返回nil），While语句后的操作将         直到测试表达式返回              为止。
  20．repeat函数按照函数中指定的次数n反复求解表达式。变量n必须为实数。（T/F）
练习6
    编写一个AutoLISP程序，以C1为圆心，D1，D2,D3为直径画出三个同心圆（见图12-29）。程序还应提示用户输入圆心C1的坐标及圆的直径D1，D2,D3o
                                       
练习7
  编写一个AutoLISP程序，从P1点到P2点画一条直线（见图12-30）。直线P1 P2与正X轴的夹角为A，P1点与P2点间的距离为L，圆的直径为D1（D1＝L/4）。
练习8
    编写一个AutoLISP程序，画出一个等腰三角形P1 P2 P3（见图12－31）。程序还应提示用户输入起点P1，长度L1及内角A。

练习9
    编写一个AutoLISP程序，画一个边长为S1、S2，夹角为W的平行四边形，如图12－32所示程序还应提示用户输入起点PT1，长度S1、S2及夹角W。
练习10   
编写一个AutoLISP程序，画出一个边长为A的正方形，以及该正方形的内切圆，如图12-33所示，正方形的底边与正X轴的夹角为ANG。程序还应提示用户输入起点P1，长度S及角ANG。
练习11
  编写一个AutoLISP程序，画出一个等边三角形及其外接圆（见图12-34）。程序应提示用户输入圆的半径及圆心。
                                                      P3

练习12
  编写一个AutoLISP程序，删除包含于上限（limmax）及下限（limmin）间的所有实体。使用AutoCAD的SETVAR及ERASE命令删除这些实体。
练习13
  编写一个AutoLISP程序，画出两个圆及它们的公切线，如图12－35所示，程序还应提示用户输入圆的直径及两圆的中心距。

练习14
编写一个AutoLISP程序，画出一个带有中心线的键槽。该程序应提示用户输入键槽的长度,宽度及中心线的图层名（见图12－36）。
练习15
编写一个AutoLISP程序，画出一条直线，并生成给定数目（N条）的与其平行的直线。

练习16
编写一个AutoLISP程序，画出一个带中心线的圆。该程序应提示用户输入圆的直径，圆心及中心线倾角，如图12－38所示。
练习17
编写一个AutoLISP程序，画一个键槽。该程序应提示用户输入该键槽的宽度、深度、角度及起始点。如图12－39所示。

练习18
编写一个AutoLISP程序，画出如图12－40所示的带中心线以及尺寸标注的图形。假设L5＝D1，L3＝1.5*D1,L6=10*D1,L1=L6-D1,L4=L3+D1。
练习19
    编写一个AutoLISP程序，画出如图12－41所示的带键槽的轮毂。该程序应提示用户输入P0（轮毂中心或轴心）的值、D1（轴径）、D2（轮毂外径）、W（键宽）以及H（键高）。程序应将中心线画在Center层（绿色），将尺寸T和W画在Dim层（紫红色）
练习20
编写一个AutoLISP程序，画出如图12－42所示的套筒的两个视图。该程序应提示用户输入起点P0，长度L1、L2以及套简直径ID、OD、HD。前视图与侧视图之间的距离为DIS（DIS＝l.25*HD）。程序应将隐藏线画在HID层，将中心线画在CEN层。中心线超出实体边界线0.75个单位。

mailin2004

不懂