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

hebei

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

cadjing

太好了呵呵

ljwin82

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

yrgui

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

xuehong51

请教，phi和 l是何时赋值的？另外，
4 K  e' @  C! K: v8 m1 x8 b$ ^/ R8 s(polar pc (+ phi (/ pi 3.0)) l);第二点
5 F7 b8 B! e& c% A' C3 r; y6 Z! n是如何定义点的？
: e) |) O7 `  |谢谢楼主

天之宇海之翔

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

baller

原帖由 xuehong51 于 2008-10-8 09:10 发表
! ~& I1 B$ `* y5 j7 ?% C7 k/ U请教，phi和 l是何时赋值的？另外，
* o; w) e( y, @: M' t3 I(polar pc (+ phi (/ pi 3.0)) l);第二点
0 P; _: E/ x  f9 ?0 O2 x是如何定义点的？
8 p. T, V( S7 t+ X4 u谢谢楼主

- y- e7 H6 t; Q/ X- Q- Z
(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
# a" u- @6 q4 |, D" b* D, H该句为hexagon函数的调用，该函数在后面给以定义
9 h9 C( [+ P% K) T7 F1 h
(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi

% V: ^3 Y0 g0 m7 @$ ?(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
+ `. ~8 O8 [! u+ S! r6 E(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
我上面的待绘点就是将要绘制的点（第二点……）

xuehong51

谢谢球员
1 k8 x# r/ s4 J: S0 T函数定义与调用明白了，
polar语句语法还不太清楚

baller

原帖由 xuehong51 于 2008-10-8 10:40 发表
& Z" V7 Y8 ^& n# O5 C6 \谢谢球员
" }+ O$ e  r2 L* X+ K% A- s: |函数定义与调用明白了，
polar语句语法还不太清楚

! d) p; M3 T1 o( R3 J原抄如下

polar
  
; P: v" J" Z3 w! X5 G6 |
! _9 l) b; ^9 @% C
' {8 p8 r2 V  ]% }' B在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点
$ A: W! A3 V# z, x* I
(polar pt ang dist)
参数
( Y  h0 N; z1 F# {
pt

二维或三维点。
. ^+ |; i) i- e  A& {. E- y
3 W$ [$ z: e8 ^1 W5 Gang
. G$ A$ s2 f! F1 u9 \8 }
: n( A9 `1 R. f+ ]  s7 K" T以弧度为单位的角度值，它是相对于当前构造平面 X 轴按逆时针方向计算的。

dist
$ d, Z. S) J/ ]2 ], f2 J: t/ L3 A
与指定点 pt 的距离。
5 N8 S4 M2 U8 g
返回值

2 @$ s) X2 o- d# ]* Z根据 pt 指定点的类型，返回二维或三维点。

: M6 H$ |, W8 N) a) h0 `示例
1 R& m( f) J8 s, ~8 t/ F
为 polar 提供一个三维点：
) T  @% g# H2 v' h
+ g5 A8 c' I' C命令： (polar '(1 1 3.5) 0.785398 1.414214)
! }, [8 g& V0 V5 R
* J! L4 e7 T0 S# j' I  o(2.0 2.0 3.5)

. }/ _( t, o$ P* g3 g" I0 t为 polar 提供一个二维点：

! n4 d9 b# A  N, B1 v命令： (polar '(1 1) 0.785398 1.414214)

+ `$ b$ ^0 F; q# e1 G- Q' [0 N(2.0 2.0)

xuehong51

多谢多谢，知道了。你是从哪抄的呀

3 Z' j; z- `. [+ X+ @4 c[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi

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

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
  u% R# J8 N3 h5 m& M多谢多谢，知道了。你是从哪抄的呀 还有，
(+ phi (/ pi 3.0)) 如何定义的60度（三分之派），phi不是零吗

(/ pi 3.0)返回的是1.0472（返回的是弧度，不要认为是角度）
(+ phi (/ pi 3.0))这句的意思就是先算出pi与3.0之商，再求phi与(/ pi 3.0)返回值之和

xuehong51

谢谢，已经捉摸出来了：
=phi+pi/3
# ?  h- D& K. E& T& N+ [- f8 A

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
& @% o; q. U5 u% b' B5 H. }多谢多谢，知道了。你是从哪抄的呀

" q7 W6 [6 ^$ G/ S$ M

& I% M( W/ d# t: L  R% g源文件见这里，做个广告
& ?$ d( n' x* m1 r7 d# vhttp://www.askcad.com/bbs/thread-25538-1-1.html

yrgui

呵呵，多谢支持。