化工制图AutoCAD二次开发及AutoLISP.pptVIP

常用的绘图命令 ⑴常用的交互命令 在程序编写中经常要用到一些交互式命令，通过交互命令，可提高程序的人机对话能力。AutoLISP也提供了一些常见的交互命令，下面分别介绍。 ①输入整型数GETINT 格式：（getint[提示]） 功能：该函数提示用户输入一个整型数，并返回该数，常和赋值函数SETQ合用 实例：（setq n （getint“n=”）） //等待用户输入一个整型数，并将该数赋值给n。 ②输入实型数GETREAL 格式：（getreal[提示]） 功能：该函数提示用户输入一个整型数，并返回该数，常和赋值函数SETQ合用 实例：（setq a（getreal“a=”）） //等待用户输入一个实型数，并将该数赋值给a。 ③输入字符串GETSTRING 格式：（getstring[提示]） 功能：该函数提示用户输入一个字符串，并返回该数，常和赋值函数SETQ合用 实例：（setq m （getstring“your name”）） //等待用户输入一个字符串，并将该字符串赋值给m，若输入xiaodong ，返回“xiaodong”。需要注意的是输入字符串时，千万别用空格键，否则只把空格键以前的内容作为输入的字符串。 AutoLISP语言基础 第三十一页，共五十一页。 ④输入点GETPOINT 格式：（getpoint[基点] [提示]） 功能：该函数提示用户输入一个点，若有基点，这将从基点到输入的点之间画一条直线拖动直线，但命令执行过后消失。 实例：(setq P1 (getpoint ‘(40 50) “第二点”)) //等待用户从键盘输入点或用光标选点。 ⑤输入距离值GETDIST 格式：（getdist [提示]） 功能：该函数提示用户输入一个距离值。 实例：(setq tspac (getdist “输入距离”)) //等待用户从键盘输入某一数值。 ⑵点的确定 确定点的位置，是进行各种绘制工作的基础，除了前面介绍的用getpoint函数外，还可以用下面几种方法确定点（通过绘制直线的小程序加以说明验证）。 实例：(setq p1 (30 40)) //用禁止求值表，确定P1点的位置 (setq p2 (300 400)) (command line p1 p2 ) ⑶直线的绘制LINE 格式：（command “line” P1 P2 P3…………[条件]） 功能：将P1、P2、P3…….等点用直线连接起来，其中[条件]可缺省，若条件中输入“c“，则绘制的将是封闭曲线。 AutoLISP语言基础 第三十二页，共五十一页。 ⑷多义线绘制 格式：（command “pline” 起点 “w” 起点线宽 末点线宽 第二点 ……末点 [条件]） 功能：将P1、P2、P3…….等点用各种曲线连接起来，其中[条件]可缺省，若条件中输入“c“，则绘制的将是封闭曲线。 ⑸矩形绘制 格式：（command“rectang” [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)] 指定另一个角点 [尺寸(D)] 指定另一个角点 ） 功能：绘制符合格式中定义的矩形。 ⑹圆的绘制 格式：（command“circle” [三点(3P)/两点(2P)/相切、相切、半径(T)]圆心 半径 ） 功能：绘制符合格式中定义的圆，默认的输入方式是圆心、半径，其它输入方式需根据具体选定的形式而定。 ⑺交点的确定 格式：（inters 端点1 端点2 端点3 端点4 [任选项]） 功能：求端点1和端点2所确定的直线和端点3和端点4所确定的直线的交点，若存在则返回交点，若不存在，则返回nil。如果有任选项，且该项为nil，则可求延长线的交点。 AutoLISP语言基础 第三十三页，共五十一页。 ⑻图层的设置 格式：(command “layer” “m”图层名 “c”图层颜色 “l”图层线型 “lw” 图层线宽 ) 功能： 设置和格式中描述相符合的图层，除图层名为不可缺省外，其它均可采用默认值，当调用图层时，可只采用格式中的前4项。 ⑼剖面线绘制 格式：（comman