CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
楼主: yrgui

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

[复制链接]
发表于 2008-10-6 13:06 | 显示全部楼层

回复 #15 wanglibinv7 的帖子

那不是程序吗?不正是有用的东西吗?
发表于 2008-10-7 13:39 | 显示全部楼层
太好了呵呵
发表于 2008-10-7 15:30 | 显示全部楼层
谢了,不错不错。很有帮助啊
 楼主| 发表于 2008-10-7 20:17 | 显示全部楼层

回复 #15 wanglibinv7 的帖子

可以不要,将它拆开只是为了说明向导编译时可以有多个单独的文件。
发表于 2008-10-8 09:10 | 显示全部楼层
请教,phi和 l是何时赋值的?另外,
. B% M2 y; s1 ]' v(polar pc (+ phi (/ pi 3.0)) l);第二点& P# ?& G8 O1 M
是如何定义点的?
' _& h# U& b. ]  P! I% L6 r谢谢楼主
发表于 2008-10-8 09:12 | 显示全部楼层
学习,学习,才开始接触有些不懂
发表于 2008-10-8 10:01 | 显示全部楼层
原帖由 xuehong51 于 2008-10-8 09:10 发表
9 M' k# t+ k% n/ C* l7 I/ ~请教,phi和 l是何时赋值的?另外,- d# r3 {8 t- K5 o- E, i* n: ^
(polar pc (+ phi (/ pi 3.0)) l);第二点
. K" y/ k1 ^) H* F( }是如何定义点的?, A7 W/ \, b' d4 U- Y
谢谢楼主

4 O8 @+ E! _( k  J7 [7 G+ Q4 G9 F8 k+ k9 J: o0 B1 _
' n. g  `& g8 W
(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的(就是这一句,把0.0赋给phi;把lmax赋给l;lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: "))
' N3 Y- V. e% I3 J/ ^该句为hexagon函数的调用,该函数在后面给以定义
5 S2 `0 T' E+ `0 |' Y' }9 F6 [% _: o" ?, u0 q2 u% g& a6 P
(defun hexagon(pc l lmin phi);开始定义hexagon函数,该函数有四个全局参数pc、l、lmin、phi$ _9 W( ]" W6 B! ~3 g2 H

9 E) q3 _4 o' E5 Y; |! F6 D1 T(polar pc (+ phi (/ pi 3.0)) l);该语句一般形式为
3 g% M) ^* ~, M5 _2 X0 f9 x; }7 P(polar 二维或三维参考点 待绘点与参考点之间的角度 待绘点与参考点之间的距离)
) K$ ?3 B8 Y5 N$ z7 w# h我上面的待绘点就是将要绘制的点(第二点……)
发表于 2008-10-8 10:40 | 显示全部楼层
谢谢球员 + Y4 P- j8 i: l. v; b7 Q0 N2 S# E
函数定义与调用明白了,
3 I" X0 A1 p# Jpolar语句语法还不太清楚
发表于 2008-10-8 11:10 | 显示全部楼层
原帖由 xuehong51 于 2008-10-8 10:40 发表
8 G+ h$ I8 x: g5 |/ q谢谢球员
) `! o1 X/ m4 F: N8 a6 P8 `' @  D. _函数定义与调用明白了,) n7 m8 n9 x1 {+ I  t
polar语句语法还不太清楚

+ D/ D6 ]. ?) b' y( o$ V6 O  B$ M8 ^! I2 I
原抄如下
% D* X- c* P) u: s( B8 m1 `; y9 m, N2 }
polar * o: ?3 D# `- a- v- ]: A3 p
  
* \4 W$ w5 u7 Y1 @1 b, e' C& ^ ' A! Q5 R! g+ i: g- ?" [

& A3 v% l" o- K0 C! i在 UCS 坐标系下,求某点的指定角度和指定距离处的点,并返回该点6 k" `8 f! I) g" v; i& j; Q
2 ]: _0 J" q& Y1 h6 W" b
(polar pt ang dist)( N& \( X, y$ {4 O; ~' f0 @' ^4 a
参数# O. [2 H' [6 ^& w. U9 m1 }9 B$ b/ N

6 g; N6 V7 [1 P$ _2 a& V0 x0 x  lpt$ ?/ ^: c0 R% ~/ E2 D' ]% x; k! k
* `- k+ z; L  @  ~8 \
二维或三维点。  C4 J1 j9 ~* r: D: ~

2 _; s/ V0 H: P3 y' A2 W+ Fang+ c9 v4 ^% [" j8 R  |6 Y

, m$ w3 E, d" Y% f1 B2 _以弧度为单位的角度值,它是相对于当前构造平面 X 轴按逆时针方向计算的。
  |* e* B' E* e: \  X# ]9 }, ?3 W  O( C% {( _2 f2 {% ]# l
dist+ G( @  ?* L8 W6 i7 Q- s

' N# w8 g% b. G* a2 `与指定点 pt 的距离。# M+ d, w/ _! V+ I

0 i0 e  J3 r' X# F返回值6 F" t# b& l2 Q8 e5 {& G/ N

7 p/ H4 U8 J6 i- u  ]( G* F根据 pt 指定点的类型,返回二维或三维点。
2 A7 _  n  i5 ], u+ M* N: g$ n: s5 i0 k: C7 u" Q# S* a
示例
5 u* O  j5 z8 S* h( c5 \$ v8 d! X
7 o2 X+ a$ b* d; T* d7 e为 polar 提供一个三维点:) i% L5 N# d# ~6 ]$ M
+ Z5 s( u) h) G- ]3 s$ H; {
命令: (polar '(1 1 3.5) 0.785398 1.414214) 9 T* Q7 u4 A# I) X$ P

' L8 a8 y; z, C( i* n(2.0 2.0 3.5)+ s3 N9 x" r! S5 w% b
4 f5 n0 f& i9 T$ o
为 polar 提供一个二维点:
( K! l9 n9 i+ \) O5 a9 E0 i' t' M
& h# J" _) E8 w命令: (polar '(1 1) 0.785398 1.414214)
& v" w+ e; q- Q) c& d: A7 l, a' x! |) l$ P5 {
(2.0 2.0)
发表于 2008-10-8 13:03 | 显示全部楼层
多谢多谢,知道了。你是从哪抄的呀5 X0 O& b! A! V' Q0 O! W" y
. _( S. b# \/ p# w+ N- S1 Y
[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]
发表于 2008-10-8 13:22 | 显示全部楼层
试着学习一下!谢谢楼主拿出来分享.
发表于 2008-10-8 14:40 | 显示全部楼层
原帖由 xuehong51 于 2008-10-8 13:03 发表 ( q4 e4 Q9 C' [- R* p
多谢多谢,知道了。你是从哪抄的呀 还有,
& @9 a0 q- y/ {6 Y& |) C8 b(+ phi (/ pi 3.0)) 如何定义的60度(三分之派),phi不是零吗
6 m3 p* Q8 X0 g/ O+ `( {8 G

9 ]* \" P3 o$ q4 `& W& E  ^(/ pi 3.0)返回的是1.0472(返回的是弧度,不要认为是角度)9 s! v+ `' u' w& u
(+ phi (/ pi 3.0))这句的意思就是先算出pi与3.0之商,再求phi与(/ pi 3.0)返回值之和
发表于 2008-10-8 14:57 | 显示全部楼层
谢谢,已经捉摸出来了:/ K( i) Z% V4 ~# T
=phi+pi/30 Y* _3 b: g- `9 i& [7 |  @
发表于 2008-10-8 15:34 | 显示全部楼层
原帖由 xuehong51 于 2008-10-8 13:03 发表 4 K2 n: W. [* v7 r8 a7 F8 _6 q
多谢多谢,知道了。你是从哪抄的呀

. ?! N0 b% a- W
& _4 X$ r. a! |4 l9 d+ n. d  Q# v* ^: W* m# r% O
源文件见这里,做个广告
! Z& |* l2 ?0 v/ K- s! hhttp://www.askcad.com/bbs/thread-25538-1-1.html
 楼主| 发表于 2008-10-10 13:12 | 显示全部楼层
呵呵,多谢支持。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-4-30 20:28

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表