Question

谁能帮我写个LISP小程序

CAD中有个命令UCS 然后还得点OB才能选择对象建立坐标系，请大家帮我用LISP语言写段小程序，让我加载了某一个命令，比如按SS就出现UCS--OB（就是不需要再点OB了）然后提示我们选择对象，请写完整。谢谢

Answer 1

(defun c:ss () (command "UCS" "ob"))

把这个考到记事本里 扩产名改成 xx.lsp 加载 命令是 ss

Answer 2

OB点的坐标是多少呢？