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

hebei

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

cadjing

太好了呵呵

ljwin82

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

yrgui

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

xuehong51

请教，phi和 l是何时赋值的？另外，
, j8 u4 U) v, C(polar pc (+ phi (/ pi 3.0)) l);第二点
是如何定义点的？
* y$ I3 [" Z4 g- I, p谢谢楼主

天之宇海之翔

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

baller

原帖由 xuehong51 于 2008-10-8 09:10 发表
6 m+ A, ?5 v2 P% O% E# Q请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
2 J  K6 e, T' I9 G是如何定义点的？
- R* ?3 e2 f/ B! p6 u: _  w谢谢楼主

/ P  h3 F& h, K& Q, [5 Z
(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
+ J& l+ J) r) v) u该句为hexagon函数的调用，该函数在后面给以定义
. X  l6 P2 i1 G% i# D
(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi
5 L4 Q0 J5 n! G$ O
(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
5 F  T" \& A- [- |: ]我上面的待绘点就是将要绘制的点（第二点……）

xuehong51

谢谢球员
函数定义与调用明白了，
polar语句语法还不太清楚

baller

原帖由 xuehong51 于 2008-10-8 10:40 发表
' d6 D, x6 l/ k; W谢谢球员
6 `9 G. W: Q& J* U9 K函数定义与调用明白了，
polar语句语法还不太清楚

: F& T' Y; V+ F( E7 T  _
原抄如下
8 B9 O4 ~/ x: W( w& w
polar
  
6 j% t" E4 p- H, D& a$ \( @
' z' z/ j. m; T0 z; w
在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点

(polar pt ang dist)
# p) ]% y" \( b3 {参数
+ t) i4 J0 X: O
pt
, g9 V& k4 v# ]
' v, J4 F: d, C二维或三维点。
: R6 x* Y* r+ C2 R5 i
ang

以弧度为单位的角度值，它是相对于当前构造平面 X 轴按逆时针方向计算的。
% O" a) w* C& {3 z) s
1 S, M% u. B" q9 ]) v' a( J& O: hdist
( u0 y( h* Q9 _: y3 k
2 V- V# R3 |0 l5 t8 s与指定点 pt 的距离。
, z; T& Q0 ^( k- O( y5 Z" X& p
1 h. ?6 O1 T, ^  T3 J返回值

( w6 f6 m: `0 e; @) T; p! S+ H根据 pt 指定点的类型，返回二维或三维点。

示例
- b- R7 s; ?8 {
为 polar 提供一个三维点：

# k- n5 {0 F) l4 _5 m% m6 u命令： (polar '(1 1 3.5) 0.785398 1.414214)
3 D: r* m7 @, ]
(2.0 2.0 3.5)
, z1 W3 I9 c% z& ?4 y( S' F4 R
为 polar 提供一个二维点：

5 `8 [& \, ~0 r+ r4 |2 c命令： (polar '(1 1) 0.785398 1.414214)

+ a" l& E) c# ~8 v5 y6 J8 z5 w(2.0 2.0)

xuehong51

多谢多谢，知道了。你是从哪抄的呀
! o' z* l1 N3 B- P) |) F
$ y6 Y: Y6 O3 W7 ~  A% }[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi

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

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
0 y9 M/ |# _/ q, @6 J; W; e8 D多谢多谢，知道了。你是从哪抄的呀 还有，
(+ phi (/ pi 3.0)) 如何定义的60度（三分之派），phi不是零吗

' t( d* D; R& o(/ pi 3.0)返回的是1.0472（返回的是弧度，不要认为是角度）
' V  q  o+ p5 o& Z7 @& w% r(+ phi (/ pi 3.0))这句的意思就是先算出pi与3.0之商，再求phi与(/ pi 3.0)返回值之和

xuehong51

谢谢，已经捉摸出来了：
* q. r: L% T4 H2 C$ q=phi+pi/3

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
* M2 J6 X9 r3 [  `6 D+ h' a% C多谢多谢，知道了。你是从哪抄的呀

6 K# x9 M- u0 Y. u& `$ V3 r# _/ q; }
2 h- \% g  a* Z9 Y& S9 R
源文件见这里，做个广告
6 ^2 @8 K6 s2 H6 h: |http://www.askcad.com/bbs/thread-25538-1-1.html

yrgui

呵呵，多谢支持。