求助一新的LISP习题。相切直线不会画。

xstlf · 发表于 2004-12-15 10:06

(defun C:hl ()
(setq o1 (getpoint "\n输入圆心："))
(setq a1 (getreal "\n输入角度："))
(setq r1 (getreal "\n输入第一圆面积半径："))
(setq r2 (getreal "\n输入第二圆半径："))
(setq d1 (getreal "\n输入二圆面积间距离："))
(setq p1 (polar o1 (* (/ pi 180) a1) d1))
(setq p2 (polar o1 (/ pi 2) r1))
(setq p3 (polar o1 (/ pi -2) r1))
(setq p4 (polar p1 (/ pi 2) r2))
(setq p5 (polar p1 (/ pi -2) r2))
(command "circle" o1 r1 "")
(command "circle" p1 r2 "")
(command "line" p2 p4 "")
(command "line" p3 p5 "")
(princ)
) 如上图所示，的二个直线若要它和二圆相切，怎么编函数呀？高手帮帮我新手呀，呵呵。先这儿谢了。

ZZXXQQ · 发表于 2004-12-15 10:34

用不着函数。程序改后： (defun C:hl ()
(setq o1 (getpoint "\n输入圆心："))
(setq a1 (getreal "\n输入角度："))
(setq r1 (getreal "\n输入第一圆面积半径："))
(setq r2 (getreal "\n输入第二圆半径："))
(setq d1 (getreal "\n输入二圆面积间距离："))
(setq p1 (polar o1 (* (/ pi 180) a1) d1))
(setq p2 (polar o1 (/ pi 2) r1))
(setq p3 (polar o1 (/ pi -2) r1))
(setq p4 (polar p1 (/ pi 2) r2))
(setq p5 (polar p1 (/ pi -2) r2))
(command "circle" o1 r1 "")
(command "circle" p1 r2 "")
(command "line" "tan" p2 "tan" p4 "")
(command "line" "tan" p3 "tan" p5 "")
(princ)
)

xstlf · 发表于 2004-12-15 10:56

我一开始也是你这样写的呀，就是提示ten出错，倒，是tan呀，我搞错了。我再去试试。

xstlf · 发表于 2004-12-15 11:02

可以了，是我自己把TAN错打成ten了，但这样角度太大的话也要出错，我知道怎么改了。呵呵。谢谢。

xstlf · 发表于 2004-12-15 11:08

ZZXXQQ，能告诉我QQ吗？我常上宁波的。

xstlf · 发表于 2004-12-15 14:13

我一用到选择集函数就要出错，这方面的实例手头上很少，有没有这方面的实例呀，发一个给我看看呀。文件太大的话，只发包含选择集函数的表达式就行了。

meflying · 发表于 2004-12-15 18:54

多看看帮助文件中的介绍，也有一些例子的这里有一个灵活应用的： dispbbs.asp?BoardID=3&ID=14363 另，建议，LISP的讨论去LISP版块，这里是编程申请，是申请编写特定功能的程序

xstlf · 发表于 2004-12-15 19:22

哦，谢谢管理员。

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

求助一新的LISP习题。相切直线不会画。

本帖子中包含更多资源