AutoLISP的绘图功能.pptVIP

第七章AutoLISP的绘图功能 7.1command函数 执行一条或多条 AutoCAD 命令，实现AutoLISP的绘图功能，主要接口。 (command [arguments] ...) 参数 arguments AutoCAD 命令、选项或表达式。 返回值 nil 例题： CAD操作方式 line 指定第一点: 1,1 指定下一点或 [放弃(U)]: 1,5 指定下一点或 [放弃(U)]: 命令: AutoLISP操作方式 (command line (1 1) (1 5) ) command函数参数书写规定 命令名和选项用字符串表示，大小写皆可。 数值常数（整数、实数）可以写成数本身，也可写成字符串。 点常数可以写成引用表或字符串，例如‘（2 3）或“2，3” 空字符串 () 表示从键盘键入 ENTER 键，可以终止一个需要不定个数数据的CAD命令，或接受缺省值。 例题： (command text m .1,1 3.0 0 AutoCAD) “0.1,1 .1,1 (0.1 1) 正确 ”0.1 1 (.1 1) 错误 不带参数调用 command 相当于键入 ESC 键，这样可取消大多数 AutoCAD 命令，两个不带参数调用 command，可取消所有 AutoCAD 命令。也可以用符号^取消AutoCAD 命令 例如： (command ^ ^ text m .1,1 3.0 0 AutoCAD) 符号pause暂停AutoCAD命令，等待用户输入，它表示一个反斜杠。若用反斜杠表示，应写成\\。 例如：(command line pause \\ ) 等待用户输入两点画一条线段 若一个期待输入字符串（如TEXT命令）或属性值的命令碰到pause，那么仅当系统变量textval置为非零时才会引起暂停，否则pause符号的值（反斜杠）被视为输入文本，不会引起暂停。 (setvar texteval 1) (command txet r pause 3 0 pause) 右对齐 右对齐点 字高 转角 等待输入字符 (setvar texteval 0) (command txet r pause 3 0 pause) 文本为反斜杠 不建议采用暂停的办法等待用户输入，输入错误导致程序出错。 等待用户输入的getxxx函数不能用在command函数中，另外在command函数中不能使用sketch （绘草图）、SCRIPT（执行一组命令）命令。如果在函数中使用 SCRIPT 命令，它必须是出现在该 AutoLISP 程序的最后。同样，如果在 acad.lsp 或 MNL 文件中使用 command 函数，则只能在 defun 表达式中调用。应使用 S::STARTUP 函数定义在绘图任务开始时就要执行的那些初始化命令。 例题 (initget 1) (setq pt (getpoint \n输入文本起点：)) (command text m pt 3.0 0 AutoCAD) (command text m (progn (initget 1) (setq pt (getpoint \n输入文本起点：)) ) 3.0 0 AutoCAD ) ；错误 一个command函数调用可以执行多条CAD命令；多个command函数调用可完成一条CAD命令。 例题： (command line (1 1) (1 5) line (2 2) (2 8) ) (command line) (command (1 1)) (command (1 5) ) 系统变量 cmdecho为0，通过command函数执行的cad命令不会在命令行中显示；系统变量 blipmode为0，可以消除命令执行过程中小十字线的显示 如果开发的应用程序运行在外文版的AutoCAD，由command函数发出的命令必须加下划线前缀，这样命令就可以被转换。 例如 (command _redraw) 如果要避免命令被重新定义，可以加圆点前缀。圆点前缀和下划线前缀可以任意组合。 例如 (command ._redraw)或(command _.redraw) command函数调用中的命令和选择项不允许有空格 例如(command line 5,6 6 ,0 ) 错误