第七章AutoLISP的绘图功能.ppt

,实现AutoLISP的绘图功能,主要接口。(command[arguments]...)参数argumentsAutoCAD命令、选项或表达式。返回值nil例题:CAD操作方式line指定第一点:1,1指定下一点或[放弃(U)]:1,5指定下一点或[放弃(U)]:命令:mand"line"'(11)'(15)"")mand函数参数书写规定命令名和选项用字符串表示,大小写皆可。数值常数(整数、实数)可以写成数本身,也可写成字符串。点常数可以写成引用表或字符串,例如‘(23)或“2,3”空字符串("")表示从键盘键入ENTER键,可以终止一个需要不定个数数据的CAD命令,或接受缺省值。 例题: (command"text""m"".1,1""AutoCAD") “,1"".1,1"'()正确 ”"'(.11)mand相当于键入ESC键,这样可取消大多数AutoCAD命令,mand,可取消所有AutoCAD命令。也可以用符号^取消AutoCAD命令 例如: (command^^"text""m"".1,1""AutoCAD")符号pause暂停AutoCAD命令,等待用户输入,它表示一个反斜杠。若用反斜杠表示,应写成"\\"。 例如:(command"line"pause"\\""")等待用户输入两点画一条线段若一个期待输入字符串(如TEXT命令)或属性值的命令碰到pause,那么仅当系统变量"textval"置为非零时才会引起暂停,否则pause符号的值(反斜杠)被视为输入文本,不会引起暂停。忱凤椎兑懒迢铭影笆明孩盂攫呼讣瑟贼卒隔赂裕揍馅丘奉援涡铅轮卯趾极第七章AutoLISP的绘图功能第七章AutoLISP的绘图功能(setvar"texteval"1)(command"txet""r"pause30pause)右对齐右对齐点字高转角等待输入字符(setvar"texteval"0)(command"txet""r"pause30pause)文本为反斜杠不建议采用暂停的办法等待用户输入,输入错误导致程序出错。mand函数中,mand函数中不能使用sketch(绘草图)、SCRIPT(执行一组命令)命令。如果在函数中使用SCRIPT命令,它必须是出现在该AutoLISP程序的最后。同样,,则只能在defun表达式中调用。应使用S::STARTUP函数定义在绘图任务开始时就要执行的那些初始化命令。 例题(initget1)(setqpt(getpoint"\n输入文本起点:"))(command"text""m""AutoCAD")mand"text""m" (progn (initget1) (setqpt(getpoint"\n输入文本起点:")) ) "AutoCAD");mand函数调用可以执行多条CAD命令;mand函数调用可完成一条CAD命令。 例题:(command"line"'(11)'(15)"""line"'(22)'(28)"")(command"line")(command'(11))(command'(15)"")系统变量"cmdecho"为0,mand函数执行的cad命令不会在命令行中显示;系统变量"blipmode"为0,可以消除命令执行过程中小十字线的显示瘤捧归保殷邦统愧拔炕腿狐仿页因钾捉孪区敷惊痔彩猫湖汗士郑首挑责二第七章AutoLISP的绘图功能第七章AutoLISP的绘图功能如果开发的应用程序运行在外文版的AutoCAD,由command函数发出的命令必须加下划线前缀,这样命令就可以被转换。 mand"_redraw") 如果要避免命令被重新定义,可以加圆点前缀。圆点前缀和下划线前缀可以任意组合。 mand"._redraw")mand"")command函数调用中的命令和选择项不允许有空格 mand"line""5,6""6,0""")错误要注意的是,mand函数,控制并不会转移到AutoCAD中。如果命令要求用户输入,则可以在控制台窗口中看到返回结果(nil),但AutoCAD将等待输入,必须手动激活AutoCAD并响应提示。在这样做以前,任何后续命令都会失败。迫星亡俩谎折玛早谊阵钎锗旧选附中整愚权铰撇汁坷乞竖艾曰姥卯本采隐第七章AutoLISP的绘图功能第七章AutoLISP的绘图功能;画一个矩形(defunabcd(/p1p2p3p4)(initget1)(setqp1(getpoint"\n输入一点:"))(initget1)(setqp3(getpointp1"\n输入对角点:"))(setqp