LISP用户输入函数

变元pt是以现行UCS表示的一个2D基点﹐而变元prompt是要作为提示信息显示的一个字符串﹐如果指定了变元pt﹐那么就假定它是两点中的第一点﹐这样﹐用户再指定另一个点就能为AutoLISP指定一个角度。您还可以提供一个3D基点﹐但角度的度量都是在现行构造平面中进行的。
Getangle函数测量零弧度方向（零弧度方向是由ANGBASE系统变量设定第０与函数和用户指定的两点确定的直线之间的角度值﹐测量方向是逆时针方向。所返回的角度是相对于现行构造平面（在现行标高处的现行UCS的XY平面上）来测量的﹐并以弧度作为角度的单位。
理解输入的角度与getangle函数所返回的角度之间的区别﹐是非常重要的。传送给getangle函数的角度﹐是基于AutoCAD的系统变量ANGDIR和ANGBASE的现行设置而确定的。然而﹐一但输入了一个角度﹐则它就以ANGBASE的现行设置为0弧度按逆时针方向来测量（忽略ANGDIR的设置）。
四. 实例
设计一个程序﹐该程序可计算由多义线或圆圈起来的区域面积﹐并可从所选域的面积中自动减去所包含的孔洞或开口的面积。
(defun C:APLATE (/ plate ssl count emax)
(while (not (setq plate (entsel "\n Pick the plate outline:"))))
二. 格式
(entsel [prompt])
三. 说明
entsel函数返回一个表﹐表中的第一个元素是用户所选对象的图元名﹐第二个元素是用户选择对象时指定的拾取点的坐标值（以现行UCS为单位）。如果调用entsel函数时指定了可选变元prompt（一个字符串）﹐则将该字符串作为请求用户作对象选择的提示信息；如果没有提供变元prompt﹐则该函数会给出隐含的提示串： "Select object:"
如果设置了此标志位﹐而用户又选择了已经存在的一个文件﹐AutoCAD就会显示出一个报警框﹐并为您提供了是继续进行下去环是中断本操作的选择。
(2)标志值为2的情况（即第1位置为1）
如果设置此位﹐则禁用 "Type it"按钮（即让它变灰）。当另一个对话框激活时，如果调用getfiled函数，这个标志位就要置1，（否则，它将强制另一个对话框消失）。
用户不能录入另一个AutoLISP表达式响应getangle函数的请求。
四. 实例
(setq ang (getangle))
(setq ang (getangle ?1.0 3.5))
(setq ang (getangle "which way?"))
)
(setq count 0 ; ; ; ss1中对象个数
emax (sslength ss1)
)
(while (< count emax) ; ; ; 开始循环
(command (ssname ss1 count)) ; ; ; 将ename传递到
有时候当操作一个对象时﹐需要在选中一个对象的同时﹐还需要选中指定的点。这种例子可以在Objict Snap(对象捕捉)以及捕BREAK、TRIM和EXTEND等命令中找到﹐entsel函数的提供使得AutoLISP程序可以完成这种操作。Entsel函数需要用点选取的方式选择单个对象。除非在函数中作特别声明﹐否则entsel和将现行Osnap设置被忽略。Entsel函数承认在它前面通过调用initget函数而设置的关键字。
二. 格式
(getdist [pt] [prompt])
三. 说明
pt变元是以现行UCS表示的一个2D或3D基点。如果在该函数调用中提供了pt﹐那么﹐它就作为两点中的第一点﹐这时﹐仅提示用户再录入第二个点。Prompt变元是作为提示信息显示的一个字符串。
在基点pt没有提供的情况下﹐用户需要选择两个点才能指定一个距离；如果提供了基点﹐则仅需要在选择一个点（即第二点）。通过录入一个以AutoCAD的现行距离格式表示的一个数﹐用户也能指定一个距离。虽然现行距离单位格式可能是以英寸（建筑单位制）表示的﹐但getdist函数总是以实型数返回这个距离值。
用户不能录入另一个AutoLISP表达式去响应getdist函数的请求。
四. 实例
例1. (setq dist (getdist))
(setq dist (getdist '(1.0 3.5)))
(setq dist (getdist "how far"))
用户不能录入另一个AutoLISP表达式来响应getcorner函数的请求。
四. 实例
(setq pt (getcorner '(3.0 7.0) "\n please enter second point:"))
131. getdist 来自一. 功能 暂停下来﹐让用户输入一个距离值。
To point:6,6
To point
Command: (setq e (entsel "Please choose an object:")
Please choose an object: 3,3
(<Entity name: 60000014>(3,0 3,0 0, 0))
(setq ang (getangle '(1.0 3.5) "which way?"))
130. getcorner
一. 功能
暂停下来﹐让用户指定一个矩形的第二个角。
二. 格式
(getcorner pt [prompt])
三. 说明
getcorner函数要求有一个基于现行UCS的一个基点变元﹐当用户在屏幕上移动十字光标时﹐它会从这个基点开始画出一个矩形。Prompt是要作为提示信息显示的一个字符串。Getcorner函数返回以现行UCS表示的一个点。这与getpoint函数类似。如果用户提供地点是一个3D点﹐则其Z坐标会被忽略。现行标高用作Z坐标。
Flags的值可由如下几个值按位编码组合而成：
（1）标志值为1的情况（即第0位为1）
当希望提您录入一个要新生成的文件名时﹐将此值置1。当希望提示您录入的文件名是一个已有的文件时（即要打开一个已有文件）﹐就不要设置这个标志位。在后一种情况下﹐如果您录入一个并不存在的文件的文件名﹐对话框就会在对话框底部显示出一条出错信息。
通过录入一个以AutoCAD的现行角度单位格式表示的一个数﹐用户也可以指定一个角度。虽然现行角度单位格式可能是度、梯度或其它什么单位﹐但这个函数总是以弧度为单位返回角度值。通过在图形屏幕上指定两个2D的位置﹐用户也能为AutoLISP给出一个角度。AutoCAD从第一点到现行十字光标上画出一条橡皮线﹐以帮助用户确定角度。
; ; ; 选区域外框线
(prompt "\n Select all holes and cutouts …") ; ; ; 选孔洞
(setq ssl (ssget)) ; ; ; 获得孔洞选择集
(ssdel (car plate)ss1) ; ; ; 从ss1中排除plate
(setq count (it count )) ; ; ; command命令
) ; ; ;
(command " " " ")
(prompt (strcat "\n Final area is" (rtos (getvar "AREA") 2) "SQ")
(command "_.Area"
"_a"
"_e"
plate
""
"_s"
"_e"
由entsel函数所返回的这个表﹐可以提供给AutoCAD﹐作为任何一种对象选择提示的响应。AutoCAD会把它作为拾取点看待﹐以此去选择对象。
下面的AutoCAD命令序列示范了entsel函数的使用﹐以及该函数的返回值：
Command:LINE
From point:1,1
如果不设置标志位，"Type it"按钮是可用的。如果用户选择了这个按钮，对话框将会消失，且getfiled函数返回1。
(3)标志值位4的情况（即第2位置为1）
让用户录入一个任意的文件名的扩展名，或者干脆不录入扩展名。
如果不设置这个标志位﹐则getfiled函数仅接受在ext变元中指定的扩展名的那种类型的文件﹐并且用户在File文本框中没有录入由ext指定的扩展名的话﹐则该函数会将这个扩展名附于文件名之后。
LISP用户输入函数
--------------------------------------------------------------------------------
109. entsel
一. 功能
提示用通过指定一个点选择单个对象（图元）。
(princ) ; ; ;
) ; ; ; end defun
128. getangle
一. 功能
执行本函数时会暂停﹐让用户输入一个角度﹐将该角度转换成弧度后返回。
二. 格式
(getangle [pt] [prompt])
三. 说明
(setq dist (getdist '(1.0 3.5) "how far?"))
例2. (setq dist (getdist "\n How far?")) ; ; ;
Har far? 168 ; ; ; 返回168.0000000