LISP编个小程序

lily1117 · 发表于 2010-5-21 11:48:00

在知道三个点的情况下用LISP 编写一个程序实现知道三点自动生成一个闭合的四边形~~~~

crazylsp · 发表于 2010-5-21 17:13:00

没表达清楚，3个点生成三角形嘛

zml84 · 发表于 2010-5-21 20:36:00

http://zml84.blog.sohu.com/55989437.html

lily1117 · 发表于 2010-5-23 09:20:00

我是想三点生成个长方形,这个程序该怎么修改呢?

ghl_729 · 发表于 2010-5-25 08:45:00

(defun c:sdf()
(command "osnap" "nod,end,cen")
(command "layer" "m" "200" "c" "6" "" "")
(setq p1 (getpoint "\n请输入第一个点(0,0):"))
(setq p2 (getpoint p1 "\n请输入第二个点(0,0):"))

(setq p3 (getpoint p2"\n请输入第三个点(0,0):"))

(command "osnap" "off")
(setq s (distance p1 p2))
(setq p4 (polar p3 (angle p2 p1) s))
(command "pline" p1 "w" 0 0 p2 p3 p4 "c" "")
)

ZZXXQQ · 发表于 2010-5-25 20:09:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=81138

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

[基础] LISP编个小程序