CAD LISP 输入坐标画点

Question

初学者 想编个lisp 画已知坐标的点，把xyz 分开输入.但是不成功 请高手指点
;
(defun c:zb(/ x y z )
(setq x (getreal"x值: "))
(setq y (getreal"y值: "))
(setq z (getreal"z值: "))
(command "_point" "(princ x),(princ y),(princ z)" )

)

Answer 1

根据你的问题描述和程序，你应该是没有搞清楚lisp里面“表”的概念，你应该把你的数据转化成“点表”【例如：（0 . 0），（1 . 1）】后再运用”command“语句;

如果你要大批量的引用数据，你还应使用循环语句repeat（或do while）;

如果你只是想快速输入大量坐标点，可以直接复制坐标数据，使用”PL“命令后直接粘贴数据即可，不用编程。

Answer 2

应该这么写
(defun c:zb()
(setq x (getreal"xֵ: "))
(setq y (getreal"yֵ: "))
(setq z (getreal"zֵ: "))
(setq yy (list x y z))
(command "point" yy)
)

Answer 3

你的xy对应的方向？反正顺序是先横后竖，就不乱了