初学LISP，求助！

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

初学，求大虾帮忙，不要笑我太笨哦，呵呵。一习题不会做。

如图，写一AutoLISP程序。其功能是：在两条指定直线间建立一倒角。输入距离和角度。

ZZXXQQ · 发表于 2004-12-13 15:58

(DEFUN C:CHA (/ D A)

(SETQ D (GETDIST "\n输入第一条线的倒角长度 :")

A (GETREAL "\n输入与第一条线的夹角 :"))

(CHA2 D A)

)

(DEFUN CHA2 (D A)

(COMMAND "CHAMFER" "A" D A "CHAMFER" PAUSE PAUSE)

(PRINC)

)

xstlf · 发表于 2004-12-13 16:11

谢谢楼上的，试一下很好，但还是有点看不懂，回去再好好看书复习。楼上的，说不定以后还要求教于你哦。我知道说谢谢两字太苍白了。不知楼上是哪里人？

meflying · 发表于 2004-12-13 16:58

chamfer本身就有这个功能，为什么要编程？（2楼的程序就是使用了其本身的功能）

xstlf · 发表于 2004-12-13 20:02

呵呵，我是初学的，碰到了书本中的一习题，做不出来，让管理员见笑了。

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

(DEFUN C:CHA (/ D A)

(SETQ D (GETDIST "\n输入第一条线的倒角长度 :")

A (GETREAL "\n输入与第一条线的夹角 :"))

()

(COMMAND "CHAMFER" "A" D A "CHAMFER" PAUSE PAUSE)

(PRINC)

)

我发现这样也能和二楼的计算结果一样，不知和二楼的有那些区别。

ZZXXQQ · 发表于 2004-12-14 09:12

是一样。不过我用了子程序。

0322321 · 发表于 2004-12-14 14:29

好贴子啊

楼上的啊

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

初学LISP，求助！

本帖子中包含更多资源