第十四章 AutoLISP初步 (setq p2 (getPoint "Enter second Point: ) 第一行( Enter fi rs t point:)将显示在屏幕的命令提示区中。 terri函数 产生了一个回车,因此第二行( Enter second point:)将显示在新的一行中,也就是第 行下面的一行。若没有 terri函数,这两行将显示在同一行中( Enter first point Enter second Point: 3 编写一个程序,提示用户输入一个矩形的两个对角的坐标,然后在屏幕上画出该矩 形,如图12-7所示 图127矩形 输入 处理过程 P1点的坐标 1.计算PZ点和P4点的坐标 P3点的坐标 2.画出下列直线 P1到P2的直线 P2到P3的直线 P3到P4的直线 P4到P1的直线 P2和P4两点的X,Y坐标可以通过car及cadr函数算出。car函数从给定的列表 中选取X坐标,cadr函数选取Y坐标 P2点的X坐标 P2点的Y坐标 X2=X3 Y2=Y1 X2=car(X3 Y3) Y2=cadr (X1 Y1) X 2=car P3 Y2=cadr P1 P4点的X坐标 P4点的Y坐标: X4=X1 Y4=Y3 X4=car (X1 Y1) Y4=cadr(X3 Y3) X4=car P1 Y4=cadr p 故,P2点和P4点为 P2=(list(car P3)(cadr P1)) P4=(List (car P1)(cadr P3))第十四章 AutoLISP 初步 287 （setq p2（getPoint“Enter second Point：”）） 第一行（Enter ｆｉｒｓｔ Point：）将显示在屏幕的命令提示区中。 terpri 函数 产生了一个回车，因此第二行（Enter second Point：）将显示在新的一行中，也就是第 一行下面的一行。若没有 terpri 函数，这两行将显示在同一行中（Enter first Point： Enter second Point：） 例 3 编写一个程序，提示用户输入一个矩形的两个对角的坐标，然后在屏幕上画出该矩 形，如图 12-7 所示。 输入 处理过程 P1 点的坐标 1.计算ＰＺ点和Ｐ4 点的坐标 P3 点的坐标 2.画出下列直线 P1 到 P2 的直线 P2 到 P3 的直线 P3 到 P4 的直线 P4 到 P1 的直线 P2 和 P4 两点的Ｘ，Ｙ坐标可以通过 car 及 cadr 函数算出。car 函数从给定的列表 中选取Ｘ坐标，cadr 函数选取Ｙ坐标。 Ｐ2 点的Ｘ坐标: Ｐ2 点的Ｙ坐标: Ｘ2=Ｘ3 Ｙ2=Ｙ1 Ｘ2=car(Ｘ3 Ｙ3） Ｙ2=cadr（Ｘ1 Ｙ1） Ｘ2=car Ｐ3 Ｙ2=cadr P1 Ｐ4 点的Ｘ坐标: Ｐ4 点的Ｙ坐标： X4＝X1 Y4=Y3 X4=car（X1 Y1） Y4=cadr(X3 Y3) X4=car P1 Y4=cadr P3 故，P2 点和 P4 点为： P2=(list(car P3)(cadr P1)) P4=(List（car P1）（cadr P3）)