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

hebei

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

cadjing

太好了呵呵

ljwin82

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

yrgui

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

xuehong51

请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
是如何定义点的？
谢谢楼主

天之宇海之翔

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

baller

原帖由 xuehong51 于 2008-10-8 09:10 发表
请教，phi和 l是何时赋值的？另外，
(polar pc (+ phi (/ pi 3.0)) l);第二点
0 U' y" n7 y& G' m7 x0 y3 X( V是如何定义点的？
谢谢楼主

$ c: i0 ]. A1 ?0 k4 U5 P- z

" P2 n1 q8 e' b' @' K; k(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
该句为hexagon函数的调用，该函数在后面给以定义
# z* t; D, `' ^+ p
(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi

(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
* B9 ~, P" M0 I/ {- l2 \4 f(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
我上面的待绘点就是将要绘制的点（第二点……）

xuehong51

谢谢球员
( r9 r0 a' ?1 x! a% Z. \1 V( H/ t函数定义与调用明白了，
polar语句语法还不太清楚

baller

原帖由 xuehong51 于 2008-10-8 10:40 发表
# c' w( o2 Z4 }3 Z4 j谢谢球员
7 @* Z% Z3 T, T0 [9 L函数定义与调用明白了，
; S. v  _# ~+ L7 I) H4 L" Hpolar语句语法还不太清楚

原抄如下
, M0 L5 k3 @2 l
polar
% Z* P' V3 ]; t* }  

& @8 ?; q; U: X) |
+ m5 a- H8 M- ^在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点

(polar pt ang dist)
参数
0 Z4 b: L0 r/ I+ R
pt
: N7 e( I) J0 ^, s. x0 W' e. E$ M
' |7 O1 ^! `/ l二维或三维点。
& T# b9 X; i. s7 l3 T
ang

以弧度为单位的角度值，它是相对于当前构造平面 X 轴按逆时针方向计算的。

( l0 B4 `! B6 }! adist

与指定点 pt 的距离。
8 r1 M% y. d, ]8 T$ t: a
; G  H4 J/ M5 [* j' `返回值

根据 pt 指定点的类型，返回二维或三维点。
* ^6 \7 e" N: b& u$ m% z/ |
. \, g  }6 i9 F/ K示例
/ {3 {9 i1 k8 r
1 d/ w5 k8 z, S为 polar 提供一个三维点：
) a4 U% D' I) ]( a- J) L. p3 P
' B9 |6 K# o9 o# T0 A% H命令： (polar '(1 1 3.5) 0.785398 1.414214)
$ i! o$ f, k# Z1 `2 ^5 \  {- p
(2.0 2.0 3.5)
7 c( i3 a" o8 B) A  i
为 polar 提供一个二维点：

命令： (polar '(1 1) 0.785398 1.414214)

1 l" ^8 }& j6 B( o  s# q9 b(2.0 2.0)

xuehong51

多谢多谢，知道了。你是从哪抄的呀
1 z; g5 e9 _7 \  D' v
: H% c& _  `9 o9 I0 d6 Z, i. m[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi

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

baller

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

8 Z7 Q2 P, R8 C1 ^9 g  f- t
2 e8 E" C- d1 X( g; V9 J9 p(/ pi 3.0)返回的是1.0472（返回的是弧度，不要认为是角度）
! _4 F# Q8 b. k(+ phi (/ pi 3.0))这句的意思就是先算出pi与3.0之商，再求phi与(/ pi 3.0)返回值之和

xuehong51

谢谢，已经捉摸出来了：
* w8 k4 Q9 s* r=phi+pi/3

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
; q: V# {) a* S! S多谢多谢，知道了。你是从哪抄的呀

' I/ e0 M( C5 d5 r  z" C8 ~+ _
; V. |; w, j; {# {  D+ Q
源文件见这里，做个广告
http://www.askcad.com/bbs/thread-25538-1-1.html

yrgui

呵呵，多谢支持。