Question

autoCAD LSP编程

想尝试学CAD LSP,下面有几行代码，中间不知怎么衔接，哪位愿意教教我？
程序思路：画圆，给圆一个默认并且可以人工变更的直径数值，画圆结束，接着对该圆执行移动命令

(defun c:hy()
(command "_circle"(getpoint "确定圆心")Pause))

请问:如何接续上一行代码给圆一个 “默认并且可以人工变更” 的直径数值，并结束画圆动作？
画圆结束后，该用什么词令接续下一行代码执行移动动作？

(command "MOVE" (entlast) "" &p1 pause))

Answer 1

接在那一句后面写，加一个pause，就可以输入直径，输入完回车，命令会继续向下执行。

追问

(command "_circle"(getpoint "确定圆心")Pause))
(pause))
是这样吗？
默认直径值怎么弄？

追答

(command "_circle"(getpoint "确定圆心"),Pause,Pause))

追问

(defun c:hy()
(command "_circle"(getpoint "确定圆心"),Pause,Pause))
(if(null(setq d &dis1(getdist &p1 (strcat "\n度默认:")))) (setq &dis1 10.0) )
(command "MOVE" (entlast) "" &p1 pause))
帮我改两句好么

追答

搞那么复杂干什么？想要默认直接把pause改成默认值就行了。

追问

帮我在中间添两句

追答

添什么？