[已解决]：请问lisp中如何把弧度制数值转换为十进角度制？

Wildcat

例如：如何把0.850904转换为45度？使用getangle只为获得弧度制的数值。
谢谢。

eachy

http://www.xdcad.net/forum/showthread.php?s=&threadid=452096

Wildcat

谢谢eachy，autolisp我刚学不久，很多问题还不明白，能介绍本适合autolisp入门的书籍给我吗？
现在我看的是陈伯雄老师写的《visual lisp for autocad2000程序设计 从学会到用好》，感觉读起来还是有点难，觉得每个范例之间的难度变化很大，可能是我刚接触编程的缘故吧。

haibinpro

可以看看这个
AutoLisp&DCL基础篇

eachy

从学 Lisp 起看的第一本书名称已经忘记了，那是 R12 时代，后来买了一本《AutoCAD 2000 应用系列  Visual Lisp 实用教程》1999年，然后就是你上面提到的那本，至今也就看过这三本，说实话都没有看完过。

基本上每本书中 Lisp 函数的翻译部分都会占到 1/3 篇幅。个人意见每本书对初学者都是不错的，搞清一些基本的东西，随着练习和认识的深入学习的途径也会越来越多。陈伯雄老师的书就够用了，书不在多，能耐心看完一本就会有收获。

Wildcat

最初由 haibinpro 发布
[B]可以看看这个
AutoLisp&DCL基础篇 [/B]

谢谢您，立马叫朋友帮忙买。

Wildcat

最初由 eachy 发布
[B]从学 Lisp 起看的第一本书名称已经忘记了，那是 R12 时代，后来买了一本《AutoCAD 2000 应用系列  Visual Lisp 实用教程》1999年，然后就是你上面提到的那本，至今也就看过这三本，说实话都没有看完过。

基本上每... [/B]

谢谢您，现在看陈老师的《visual lisp for autocad2000程序设计》于我而言感到书的内容覆盖面太广，其中讲到lisp的部份相对被压缩了（尤其是简单的部份，呵呵），很希望找到些简单范例是每句带注释的。

另外顺便提个问：
(setq p4 (getpoint "第一点:") p5 (getpoint "第二点:"))
(setq p1 (Getdist p4 p5) p2 (* p1 (sqrt 2.0)))
为什么运行到(Getdist p4 p5)时提示“参数类型错误”？是getdist不支持这种数据？如果是这样该如何改正？

中文帮助里只有这样的样例
(setq dist (getdist))  
(setq dist (getdist '(1.0 3.5)))  
(setq dist (getdist "How far "))  
(setq dist (getdist '(1.0 3.5) "How far? "))

雨箭风刀

既然已经找到帮助，为什么不看看帮助里面对参数的解释呢？
如果参数格式不符合要求，自然会有错误。

eachy

楼上说的对，Lisp 的联机 Help 就是任何学习阶段最好的书籍之一，查阅帮助的时候一定要看完整，比如 Getdist ，
[iframe h=600 w=100%]http://www.mjtd.com/object/autolisp/ALR.default.118.htm[/iframe]
要把整个说明看完，示例是对前面说明的一个具体应用。前面的说明掌握了后面的才能理解

Wildcat

哦，明白了，当使用(getdist)时，系统让用户选择两个点，就想当然的给两个点它，结果就……

其实我想只选择两点，同时以此两点求得(getdist)和(getangle)的值。请问该如何操作？

我最终想达到的目的，（如图所示）已知一矩形（白色部份），我想填充折线（红色部份）。
程序如下
(defun c:hok(/ p1 p2 p p3 p4)
  (setq p4 (getpoint "第一点:"))
  (setq p1 (Getdist p4) p2 (* p1 (sqrt 2.0)))
  (defun xd-rtd (j$) (/ (* j$ 180.0) pi))
  (setq p (xd-rtd (getangle p4)))
  (setq p3 (+ p 45))
  (command "HPORIGIN" p4) ;;HPORIGIN是cad2007的图案填充原点的系统变量，相当于R14的snapbase
  (command "-hatch" "p" "u" p3 p2 "y")  
)
此程序可以实现我的需要，但却要鼠标点上三点，我觉得应该两点就能完成，因为第二点和第三点是重合的，所以引出了上面的问题。

ll_j

看看我的 Autolisp编程心得 例二。

Wildcat

谢谢大家，问题终于解决了。
ll_j的编程心得，对我太有用了。