[求助]lisp语言中定义一个点坐标的函数是哪个？

albert512 · 发表于 2009-5-9 14:04:00

问题如题。还有当我定义了两个点之后，如何把这两个点用一条直线连接起来，成为一条线段？知道的大哥帮我下哈！非常感谢。能给我点代码那最好了

lazybug · 发表于 2009-5-9 14:34:00

(command "line" pt1 pt2 "")

pt1\pt2分别为你定义的两个点

albert512 · 发表于 2009-5-9 14:43:00

谢谢啦！

albert512 · 发表于 2009-5-9 14:48:00

但是我是想直接用lisp语言来先定义点的坐标，然后再把这被定义的各点坐标连接起来。如果在命令行中用line命令，就不能先确定点坐标了！

ZHAOWCHANG · 发表于 2009-5-9 15:30:00

(setq p1 (list x y)) p2 (list x2 y2))

(command "line" p1 p2 "")

caoyin · 发表于 2009-5-9 16:57:00

(setq a (getpoint "\n拾取第一点："))

(setq b (getpoint a "\n拾取第二点："))

(command "_.line" "_non" a "_non" b "")

zml84 · 发表于 2009-5-9 17:58:00

(and

(setq a (getpoint "\n拾取第一点："))

(setq b (getpoint a "\n拾取第二点："))

(command "_.line" "_non" a "_non" b "")

)

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