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

start4444 · 发表于 2013-4-23 17:03:04

phoenixdjq 发表于 2013-4-23 16:55
你直接用我给你的程序，就可以了

是的，你那个是两点直线是没问题的，我想中间自己再加个点，3点两线，不知道能不能用while指令的

start4444 · 发表于 2013-4-24 10:48:16

一楼已上传了图片说明，继续请教帮忙

x_s_s_1 · 发表于 2013-4-24 17:22:54

本帖最后由 x_s_s_1 于 2013-4-24 17:23 编辑

start4444 发表于 2013-4-24 10:48
一楼已上传了图片说明，继续请教帮忙

仅按图片

(defun c:test1 (/ pt1 pt2)
(setq pt1 (getpoint "\n选择基点："))
(while (setq pt2 (getpoint pt1 "\n选择结束点："))
(entmake (list '(0 . "line") (cons 10 pt1) (cons 11 (polar pt2 (/ pi 2) 500))))
(entmake (list '(0 . "line") (cons 10 pt2) (cons 11 (polar pt2 (/ pi 2) 500))))
)
)

phoenixdjq · 发表于 2013-4-24 17:28:53

本帖最后由 phoenixdjq 于 2013-4-24 17:36 编辑

(defun c:j()
(setq p1 (getpoint "\n 请输入第一点:"))
(setq p2 (getpoint p1 "\n 请输入第二点:"))
(while p2
(setq p2x (car p2))
(setq p2y (cadr p2))
(command "line" p1 p2 (list p2x (- p2y 500)) "")
(setq p2 (getpoint p1 "\n 请输入第二点:"))
)
)

看看是否可行

start4444 · 发表于 2013-4-24 18:49:34

本帖最后由 start4444 于 2013-4-24 18:50 编辑

非常感谢楼上的两位朋友，两个程序都可以实现要求了，phoenixdjq的当开了捕捉有的时候位置会错误。

phoenixdjq · 发表于 2013-5-8 12:30:10

那就关了捕捉
第2行，加一句

(setvar "osmode" 0)

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

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

本帖子中包含更多资源