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

hebei

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

cadjing

太好了呵呵

ljwin82

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

yrgui

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

xuehong51

请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
是如何定义点的？
9 N6 q0 F! [: M# f1 p6 n3 _谢谢楼主

天之宇海之翔

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

baller

原帖由 xuehong51 于 2008-10-8 09:10 发表
请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
/ m7 i' y: d  n! m5 l8 w) ?: m1 z是如何定义点的？
谢谢楼主

6 D* N( Y* ^/ i3 f* f5 `! S

! F& m# w) S" P: A) t' R/ p(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
该句为hexagon函数的调用，该函数在后面给以定义
+ Z" A! T3 x# e1 T. x3 W0 T) |
: t$ ]8 P! [7 `7 [(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi
2 w# I( ]) I& ^9 L/ j9 d
(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
4 `: C8 u( t! b) w% c(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
我上面的待绘点就是将要绘制的点（第二点……）

xuehong51

谢谢球员
函数定义与调用明白了，
5 N$ w, w/ G- D5 a+ b6 Dpolar语句语法还不太清楚

baller

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

原抄如下

polar
) E* g" Y7 ?0 F1 m  
3 w8 ^% j) O$ }4 ?8 [

在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点
+ y3 ^4 c; m/ s' u' K0 _
(polar pt ang dist)
; ^" }5 O3 m0 D. D* x0 U+ e  E参数

pt
9 Y/ J) ?' f5 @$ t
" l  k0 {3 |8 f( J" F二维或三维点。

4 g( T- m, W  F, ]8 x3 Lang

- s5 e& K. E- c. C: B以弧度为单位的角度值，它是相对于当前构造平面 X 轴按逆时针方向计算的。
' C: U6 x7 j7 P4 w9 t/ T$ F
$ M/ u, u- |# E6 }8 rdist
: Y; ]- M3 d) V4 a# P# F& ^  W) c" r
; i- G' u. a- N8 l+ c4 y- `8 U与指定点 pt 的距离。

. W' h( R4 }& ]: z6 S7 S. s返回值

根据 pt 指定点的类型，返回二维或三维点。
0 i# R0 h( J0 ]* G
' g9 B- j8 v4 V4 W示例
, A" k) Y, Q4 s/ i% M
+ E( C, F; c: f9 G' ~为 polar 提供一个三维点：
5 j+ n: X* x2 |7 p; m) J
命令： (polar '(1 1 3.5) 0.785398 1.414214)

: |' \. h: i+ n) f(2.0 2.0 3.5)
; j0 d+ y: o% m$ @
为 polar 提供一个二维点：
& \) b/ K  B9 Z- V$ A
0 ?* q. |% [! K3 e4 W命令： (polar '(1 1) 0.785398 1.414214)
- a( i7 K3 Y, k+ H2 z; t
4 p) Q/ H7 V2 c/ ]( {0 h, R(2.0 2.0)

xuehong51

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

- P2 I5 {: Y: \  T- t6 k" T[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi

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

baller

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

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

xuehong51

谢谢，已经捉摸出来了：
=phi+pi/3

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
多谢多谢，知道了。你是从哪抄的呀

; b. W8 c' m4 y2 q( y# w/ z) [源文件见这里，做个广告
http://www.askcad.com/bbs/thread-25538-1-1.html

yrgui

呵呵，多谢支持。