Question

LISP程序中如何输入点的三维坐标

Answer 1

LISP中有获取点坐标的函数
语法
(getpoint [pt] [prompt])
功能及参数
此函数将暂停以等待用户输入一点, pt 点为在目前UCS下的 2D 或 3D 基准点。Prompt 是一任意字符串, 用来提示用户输入一点。用户则可使用鼠标指定一点, 或由键盘输入目前单位格式的坐标, 来回答此点的位置。假如您设定了 pt这个参数, 则AutoCAD会从这个基准点拉一条橡皮筋到鼠标目前所在的位置。
范例
(setq p (getpoint))
(setq p (getpoint "Where? "))
(setq p (getpoint '(1.5 2.0) "Second point："))
此一返回值将表示成目前 UCS 坐标的 3D 点。
【注意】您不能在回应一个 getpoint 要求时, 再输入其他的 LISP表达式。
相关函数：getcorner 与 initget 函数。

Answer 2

输入三维坐标？
(setq x1 (getreal "\n enter number: x1=")
y1 (getreal "\n enter number: y1=")
z1 (getreal "\n enter number: z1=")
p1(list x1 y1 z1)

)
前三行输入坐标，最后一行将坐标合成一个点，之后直接用p1表示这个点了~