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

初学LISP，求助！

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


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

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

(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:00

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

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

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

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

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

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

(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:00

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

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

好贴子 啊


楼上的啊
页: [1]
查看完整版本: 初学LISP，求助！