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

hebei

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

cadjing

太好了呵呵

ljwin82

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

yrgui

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

xuehong51

请教，phi和 l是何时赋值的？另外，
  a+ q) y; J% p* ^(polar pc (+ phi (/ pi 3.0)) l);第二点
6 _2 Z: `- J6 {是如何定义点的？
. z3 S% G& V/ u/ J: Q$ d% ?0 W  C5 |! R谢谢楼主

天之宇海之翔

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

baller

原帖由 xuehong51 于 2008-10-8 09:10 发表
3 U* ^8 P- ]% k请教，phi和 l是何时赋值的？另外，
( K- ^5 M: `& s' ]$ I0 M3 N/ I1 |(polar pc (+ phi (/ pi 3.0)) l);第二点
是如何定义点的？
谢谢楼主

# t% {( @+ R! k( z0 r( m
(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
该句为hexagon函数的调用，该函数在后面给以定义
2 {  g2 A9 Q9 [* T# J6 i: }
(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi

(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
我上面的待绘点就是将要绘制的点（第二点……）

xuehong51

谢谢球员
5 E+ a( |! H* A- z) a* i" P' C函数定义与调用明白了，
polar语句语法还不太清楚

baller

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

5 v" R  P( G( z: K, T2 U
原抄如下
5 G9 m9 _9 P9 ?8 S# K: R* d6 U
polar
, k3 U$ f! V; D+ `8 q( Y3 o  


在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点
8 N# l: y5 z4 y8 w) a  P" h
(polar pt ang dist)
! O1 v! m5 x2 H/ O参数
7 l* q- w8 Z6 E/ W7 \
pt

二维或三维点。

ang
- A' j! f) a" L
  H! C, h1 W" D1 [! L. [# W1 H! `以弧度为单位的角度值，它是相对于当前构造平面 X 轴按逆时针方向计算的。

dist
- q6 w- c' b: {
与指定点 pt 的距离。
" X9 n1 g* A( a
6 i8 u0 E4 F* N  W; D返回值

1 U" N0 g" v) f6 x! }6 ?' S根据 pt 指定点的类型，返回二维或三维点。

示例

为 polar 提供一个三维点：
( |4 A+ B$ o, D5 O" G$ T
命令： (polar '(1 1 3.5) 0.785398 1.414214)
* x2 Y  V* a: S  L4 b8 Y' t4 l
(2.0 2.0 3.5)

为 polar 提供一个二维点：

命令： (polar '(1 1) 0.785398 1.414214)
' b" d9 V! G) C: A
" F5 |/ K$ b, l. b4 ?(2.0 2.0)

xuehong51

多谢多谢，知道了。你是从哪抄的呀
$ J3 T7 b+ h# D9 k
$ k$ ?2 V. r9 e# g, w[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi

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

baller

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

2 n1 B4 L/ D: \
* u8 H+ J% y; ?: R, z1 d. _1 a(/ pi 3.0)返回的是1.0472（返回的是弧度，不要认为是角度）
' G/ r! |/ H1 {% n5 ^(+ phi (/ pi 3.0))这句的意思就是先算出pi与3.0之商，再求phi与(/ pi 3.0)返回值之和

xuehong51

谢谢，已经捉摸出来了：
=phi+pi/3
' c) g3 _/ Y6 V! d

baller

原帖由 xuehong51 于 2008-10-8 13:03 发表
1 Z+ P5 d1 N% D- \/ C3 C# \5 R% n多谢多谢，知道了。你是从哪抄的呀

0 T0 G9 B9 H( A6 r7 J% r$ D$ M
7 e. g! g$ _, ^源文件见这里，做个广告
) o9 k+ I) Y& R7 u& Y" ahttp://www.askcad.com/bbs/thread-25538-1-1.html

yrgui

呵呵，多谢支持。