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

start4444 · 发表于 2013-4-23 01:15:10

本帖最后由 start4444 于 2013-4-24 10:49 编辑

(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 · 发表于 2013-4-23 08:29:42

本帖最后由 pzweng 于 2013-4-23 08:30 编辑

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

phoenixdjq · 发表于 2013-4-23 09:16:22

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

start4444 · 发表于 2013-4-23 10:37:43

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

phoenixdjq · 发表于 2013-4-23 13:10:56

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

start4444 · 发表于 2013-4-23 13:58:23

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

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

phoenixdjq · 发表于 2013-4-23 15:13:28

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

start4444 · 发表于 2013-4-23 15:51:49

本帖最后由 start4444 于 2013-4-23 15:52 编辑

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 · 发表于 2013-4-23 16:27:14

本帖最后由 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)))
)
)

phoenixdjq · 发表于 2013-4-23 16:55:12

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

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源