请教这个画线命令怎么实现循环连续

start4444

(defun c:gx()
  (setq p0(getpoint "\n请输入基准点：")
        p1(getpoint p0 "\n请输入第二点："))
  (setq p0x (car p0)
        p0y (cadr p0)
        p1x (car p1)
        p1y (cadr p1))
  (setq p11 (list p1x (+ 500 p1y)))
  (command "line" p0 p11 p1)


上面那个命令怎么做到不退出循环连续画线 :以p0为原点不断画线（p0  p1、p0  p2、、、、p0 pn）  ，直到点右键退出，希望各位指点，谢谢。

pzweng

画出来是啥效果?
用whlie就行了

phoenixdjq

multiple  可以，但是要用esc取消
这个是cad的自带命令

start4444

谢谢楼上两位朋友，我不是想程序自动循环，我只是要画p0-p1、p0-p2、、、p0-pn共n条直线，怎么实现点一次p0然后就再点p1 、p2、、、pn就完成，如果用自带直线命令就要点n次p0了。

phoenixdjq

(defun c:j()
(setq p1 (getpoint "\n 请输入第一点:"))
(setq p2 (getpoint p1 "\n 请输入第二点:"))
(while p2
(command "line" p1 p2 "")
(setq p2 (getpoint p1 "\n 请输入第二点:"))
)
)

start4444

phoenixdjq 发表于 2013-4-23 13:10
(defun c:j()
(setq p1 (getpoint "\n 请输入第一点:"))
(setq p2 (getpoint p1 "\n 请输入第二点:"))

谢谢啊，学习了，但是我把语句加到上面的程序里面就出错了，不知道为什么。

phoenixdjq

你的程序没有用while，不全
你把全的程序贴上来，我帮你看看

start4444

phoenixdjq 发表于 2013-4-23 15:13
你的程序没有用while，不全
你把全的程序贴上来，我帮你看看

(defun c:gx()
  (setq p0(getpoint "\n请输入基准点：")
        p1(getpoint p0 "\n请输入第二点："))
  (setq p0x (car p0)
        p0y (cadr p0)
        p1x (car p1)
        p1y (cadr p1))
  (setq p3 (list p1x (+ 2000 p1y)))
(while p1
  (command "line" p0 p3 p1)
  (setq p1(getpoint p0 "\n请输入第二点："))
  (setq p0x (car p0)
        p0y (cadr p0)
        p1x (car p1)
        p1y (cadr p1))
  (setq p3 (list p1x (+ 2000 p1y)))
)
)

这个不行啊。。。

x_s_s_1

start4444 发表于 2013-4-23 15:51
(defun c:gx()
  (setq p0(getpoint "\n请输入基准点：")
        p1(getpoint p0 "\n请输入第二点：") ...

没仔细看您的程序，给您个例子

2. (defun c:test (/ pt1 pt2)
   
3.   (setq pt1 (getpoint "\n选择基点："))
   
4.   (while (setq pt2 (getpoint pt1 "\n选择结束点："))
   
5.     (entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt2)))
   
6.   )
   
7. )

(defun c:test (/ pt1 pt2)<br />   (setq pt1 (getpoint "\n选择基点："))<br />   (while (setq pt2 (getpoint pt1 "\n选择结束点："))<br />     (entmake (list '(0 . "line") (cons 10 pt1) (cons 11 pt2)))<br />   )<br /> )

phoenixdjq

你直接用我给你的程序，就可以了