第四章AutoLISP的绘图功能.ppt

4.1 COMMAND函数 4.1.1 调用格式 (command 〈参数〉……) command函数的参数可以是任意的Auto LISP的S—表达式，但与Auto LISP其它函数不同，它的参数是没有固定的格式。由于它是Auto LISP系统提供的与Auto CAD相互通讯的接口，利用它可以直接执行Auto CAD的命令，所以它的〈参数〉就是它所调用的Auto CAD命令及其子命令或命令所需的数据。 1. Auto CAD的命令、子命令和选择项要用字符串表示，大小写均可。 例如： (command “DIM” “hor” /(2.0 3.0) /(5.0 3.0) /(5.0 5.0) 8) “DIM”为命令，“hor”为子命令，均用字符串表示。 2.数字常量（整型数或实型数）可写成本身亦可写成字符串形式。如上例中数字8亦可写成“8”。 3.点常量有两种表示法：一是Auto LISP表的形式，如上例中/(2.0 3.0)，/(5.0 3.0)。二是用字符串表示，字符串中数据要符合Auto CAD的规定。如写成“2.0，3.0”，“5.0，10.0”。 6. command可以不带任何参数，即（command）， 它等效于在键盘上按CTRL—C键，即取消了Auto CAD命令。 例如： (command “dim” “hor” /(4 4) /(6 4) /(5 4) 10) (command) 相当于取消DIM命令并返回到命令提示。 (command)也可以用“∧”代替，如上式可写成： (command “dim” “hor” /(4 4) /(6 4) /(5 4) 10∧) command函数的实际应用有如下几种情况： 1.用一个command的实际应用是在执行一条Auto CAD命令。这是最常用的，例如： (setq p1 /(1.2 1.2) p2 /(5.8 12.4)) (command “line” p1 p2 ””) (command “circle” /(5.0 4.0) 3) (command “text” /(4.0 0.4) “3.5” “0.0” “ABC”) 2.用一个command函数执行多条Auto CAD命令，这也是正确的。 例如： (command “line” p1 p2 ”” “circle” /(5.0 4.0) 3 “text” /(4.0 0.4) “3.5” “0.0” “ABC” ) 4.利用暂停符号pause使正在执行的Auto CAD命令暂停。作法是command函数调用参数表中加pause符号，该Auto CAD命令即暂停，以等待用户键入或拖拽输入。例如： (command “circle” /(5.0 4.0) pause) 该式是用command函数调入Auto CAD中的circle命令。先设置圆心（5.0 4.0），然后暂停下来让用户在屏幕上拖拽圆的半径，当用户给出所要的点或输入所需的半径后，在屏幕上便画出一个圆。 4.2.1求相对角度的函数ANGLE 1.调用格式 (angle 〈点1〉 〈点2〉) 2.功用及求值结果 该函数是求〈点1〉到〈点2〉连成一条直线的正方向与当前作图平面X轴方向所组成的角度，单位为弧度。求值结果返回该角度。若〈点〉为三维点，则将其投影到当前作图平面上计算。例如： (angle /(5.0 1.2) /(2.4 1.2)) 返回值 3.14159 3.注意 〈点1 〉 、〈点2〉顺序不能写错，因它决定直线的方向。若上例写成：(angle /(2.4 1.2) /(5.0 1.2)) 返回值 0 4.2.3求极坐标函数POLAR 1.调用格式 (polar 〈点〉 〈方向角〉 〈距离〉) 2.功用及求值结果 该函数用于求一个点的极坐标，返回在UCS坐标系统中的一个点。其〈方向角〉是从X轴方向按逆时针方向计算，其单位为弧度。〈点〉不管二维点还是三维点总是返回二维点。 例如： (polar /(7.0 1.