[下载]：AutoLisp Vlisp开发 函数集合

shl1980912

这是vlisp函数的书，里面主要是讲解一些语法，
功能及参数，及范例,
是我学习lisp的第一本书.   适合初学者学习.
也可用来函数参考

qjcpj

贴个图上来看看。

shl1980912

　


语法

    (getangle [pt] [prompt])

功能及参数

    此函数会暂时停止以等待用户输入角度然后返回以弧度表示的角度。所返回的角度是以弧度量来表示, 并且对应到目前的结构 getangle 测量角度的方式是以 ANGBASE 变量所设定的目前角度为零度的方向, 并且以逆时钟方向增加角度。平面 (即目前 UCS 和目前高度的 XY 平面)。pt 是一任意点, 而 prompt 乃一任意提示语句字符串, 用来等待用户的键入。用户也可以用 AutoCAD 目前的角度格式键入一数值来设定角度, 可是尽管角度的格式可以为度度量或弧度量, 但此函数将永远将以弧度量为返回单位。另外, 用户也可以用 AutoLISP 绘图屏幕上给定两点来表示角度的大小, AutoCAD 会由第一点牵出一条橡皮筋到十字形光标所在的位置, 来协助用户设定角度。如果指定了getangle的选择项 pt 参数, 则它将会被假设为这两点的第一点, 这可让您经过指定另一点来告诉 AutoLISP 这个角度。您可以提供一个3D的基准点, 但这可能会产生混淆, 因为这个点总在目前的绘图平面上量测。

    了解输入角度和 getangle 所返回角度之间差异是一件很重要的工作。您所键入给getangle的角度是以 ANGDIR 和ANGBASE 的目前设定为基础。然而, 一旦键入一个角度, 它的量测方式是以 ANGBASE 的目前设定是零度并向逆时针的方向增加 (忽略 ANGDIR)的。

范例

(setq ang (getangle))

    (setq ang (getangle '(1.0 3.5)))

    (setq ang (getangle "哪个方向? "))

    (setq ang (getangle '(1.0 3.5) "哪个方向? "))

    您不能在回应一个 getangle 要求时再输入其他的AutoLISP表达式。否则会接到这样的错误信息：

Can't reenter AutoLISP

    相关函数：getorient 函数。