本帖最后由 x_s_s_1 于 2013-4-23 16:30 编辑
start4444 发表于 2013-4-23 15:51 
(defun c:gx()
(setq p0(getpoint "\n请输入基准点:")
p1(getpoint p0 "\n请输入第二点:") ...
没仔细看您的程序,给您个例子
 - (defun c:test (/ pt1 pt2)
- (setq pt1 (getpoint "\n选择基点:"))
- (while (setq pt2 (getpoint pt1 "\n选择结束点:"))
- (entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt2)))
- )
- )
|