我们一起学习lisp开发(第一辑)

hebei

那不是程序吗？不正是有用的东西吗？

cadjing

太好了呵呵

ljwin82

谢了，不错不错。很有帮助啊

yrgui

可以不要，将它拆开只是为了说明向导编译时可以有多个单独的文件。

xuehong51

请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
6 H0 `# V) ?: m2 Q3 r" D是如何定义点的？
$ t* M" Y( P% N9 a+ D1 A谢谢楼主

天之宇海之翔

学习，学习，才开始接触有些不懂

baller

原帖由 xuehong51 于 2008-10-8 09:10 发表
& D0 v5 X# S; A9 l" ~请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
是如何定义点的？
谢谢楼主

" X/ u: w* k' v

(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
: z# q6 O0 y5 y; ~% |该句为hexagon函数的调用，该函数在后面给以定义
9 A  E0 ~4 Q* g8 {) E
# B: p+ d; V# E(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi

4 P- F  A/ j% F1 I8 ~0 e1 J(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
我上面的待绘点就是将要绘制的点（第二点……）

xuehong51

谢谢球员
$ M. C0 m: C% ?) v2 _: U4 x* m1 p' _函数定义与调用明白了，
& J) j9 t  X6 K6 P/ wpolar语句语法还不太清楚

baller

原帖由 xuehong51 于 2008-10-8 10:40 发表
谢谢球员
函数定义与调用明白了，
polar语句语法还不太清楚

5 G- W! V( q6 z# w
原抄如下
8 ^, D% y: L3 ]& K0 J
, b- R% Z. S$ e' ]polar
' y, V' i) e  \0 t& y0 H1 k  

+ P* n# ]* ~) ~( j" |
在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点

. z8 F1 [) c: l; g4 B9 S(polar pt ang dist)
' }: u7 }& A( U) k) J  k5 ~参数

pt
0 w, |  z) e4 k! ?! i
9 W( @- r& D" t4 I3 G2 A9 |二维或三维点。
, t1 q, L$ K' ^+ Q2 w
* g' a  s6 e; n. ?1 }; ~ang
1 D( d& J  M  o5 K
以弧度为单位的角度值，它是相对于当前构造平面 X 轴按逆时针方向计算的。

dist
! u- k  ?( v7 _$ q
' ~4 G8 `. j7 j( T* t3 _2 @与指定点 pt 的距离。

返回值

根据 pt 指定点的类型，返回二维或三维点。

示例

为 polar 提供一个三维点：

% {5 e! D0 c8 s1 ?3 U+ d+ E8 L) u8 v命令： (polar '(1 1 3.5) 0.785398 1.414214)
# z# C. n  [) a( L3 |
+ M/ p8 q- L& C: K5 c- `9 ~(2.0 2.0 3.5)

为 polar 提供一个二维点：
5 d- \- E' r: u1 \
命令： (polar '(1 1) 0.785398 1.414214)

(2.0 2.0)

xuehong51

多谢多谢，知道了。你是从哪抄的呀
. K& v- A- P( U- Z; w
[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi

试着学习一下!谢谢楼主拿出来分享.

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
  ]# r- h( z6 C1 |/ ^  J  W多谢多谢，知道了。你是从哪抄的呀 还有，
(+ phi (/ pi 3.0)) 如何定义的60度（三分之派），phi不是零吗

(/ pi 3.0)返回的是1.0472（返回的是弧度，不要认为是角度）
+ E8 r% l! }* _) ~- O# [+ b(+ phi (/ pi 3.0))这句的意思就是先算出pi与3.0之商，再求phi与(/ pi 3.0)返回值之和

xuehong51

谢谢，已经捉摸出来了：
5 J+ d+ T+ e" \+ x& F=phi+pi/3
1 Q" V  ~% z2 c2 O

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
. n5 J) i1 i+ T2 H; ?, |4 P多谢多谢，知道了。你是从哪抄的呀

' B& E  f0 B: a* w8 q9 I  _1 }

- {9 h* B' d- F. n4 e- Y源文件见这里，做个广告
http://www.askcad.com/bbs/thread-25538-1-1.html

yrgui

呵呵，多谢支持。