第十四章 AutoLISP初步 幕光标将其输入。该函数需要一个基点,在屏幕上移动屏幕光标时将根据该基点显示矩形 etcorner函数格式为: (getcorner Point [P 其中 Point 基点 …显不在屏幕上的提示信息 示例:( getcorner pt1 (setq pt2(getcorner pt1)) (setq pt2(getcorner ptl "Enter second Point)) 注意基点及响应 getcorner函数所选择的点均是关于当前US定位的 若选择的是带有XYZ坐标的3D点,E坐标将被忽略。该点假定当前高度为 其Z坐标。 redist函数 getdist函数暂停程序的运行,等候用户输入距离,随后以实数形式返回该距离 getdist函数格式为 (getdist [Point][Prompt 其中 Point… 距离的第一点坐标 须在屏幕上显示的提示信息 示例:( getdist) (setq dist (getdist)) (setq dist (getdist pt1)) ( setq dist( getdist“ Enter distance”》 (setg dist (getdist ptl "Enter second Point for distance") 可以在屏幕上选择两个点来输入距离。例如,若赋值语句为( setq dist( getdist)), 可以输入数字或选择两个点:若赋值语句为( setq dist( getdist pt1),这里的第一点 (pt1)已经定义,只须选择第二点。 getdist函数总是返回以实数表示的距离。例如,如 果当前设置为 architecture并且以 architecture单位输入了距离, getdist函数将以实 数形式返回该距离 3ear函数 setvar函数用于给 AutoCAD系统变量赋值。系统变量名必须置于双引号中。 setvar函数格式为: variable-name value 其中 variable nam autoCAD系统变量 赋予系统变量的值 示例:( setvar“ cmdecho”0)第十四章 AutoLISP 初步 282 幕光标将其输入。该函数需要一个基点，在屏幕上移动屏幕光标时将根据该基点显示矩形。 Getcorner 函数格式为： （getcorner Point［Prompt］） 其中 Point ……………… 基点 prompt ……………… 显不在屏幕上的提示信息 示例：（getcorner pt1） （setq pt2（getcorner pt1）） （setq pt2（getcorner pt1“Enter second Point）） 注意 基点及响应 getcorner 函数所选择的点均是关于当前 UCS 定位的。 若选择的是带有 X,Y,Z 坐标的 3Ｄ点，FZ 坐标将被忽略。该点假定当前高度为 其Ｚ坐标。 2.getdist 函数 getdist 函数暂停程序的运行，等候用户输入距离，随后以实数形式返回该距离。 getdist 函数格式为： (getdist［Point］［Prompt］） 其中 Point…………………距离的第一点坐标 Prompt………………须在屏幕上显示的提示信息 示例：(getdist) (setq dist（getdist）） (setq dist（getdist pt1）） （setq dist（getdist“Enter distance”》 （setq dist（getdist pt1“Enter second Point for distance”）） 可以在屏幕上选择两个点来输入距离。例如，若赋值语句为（setq dist（getdist））， 可以输入数字或选择两个点；若赋值语句为（setq dist(getdist pt1)），这里的第一点 （pt1）已经定义，只须选择第二点。getdist 函数总是返回以实数表示的距离。例如，如 果当前设置为 architecture 并且以 architecture 单位输入了距离，getdist 函数将以实 数形式返回该距离。 3.setvar 函数 setvar 函数用于给 AutoCAD 系统变量赋值。系统变量名必须置于双引号中。 setvar 函数格式为： （setvar“variable－name value） 其中 variable name…………AutoCAD 系统变量 value……………………赋予系统变量的值 示例：（setvar“cmdecho” 0）