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

hebei · 发表于 2008-10-6 13:06

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

cadjing · 发表于 2008-10-7 13:39

太好了呵呵

ljwin82 · 发表于 2008-10-7 15:30

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

yrgui · 发表于 2008-10-7 20:17

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

xuehong51 · 发表于 2008-10-8 09:10

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

天之宇海之翔 · 发表于 2008-10-8 09:12

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

baller · 发表于 2008-10-8 10:01

原帖由 xuehong51 于 2008-10-8 09:10 发表 / i) @7 h0 M8 {/ S
请教，phi和 l是何时赋值的？另外，( g7 ^8 B h" r
(polar pc (+ phi (/ pi 3.0)) l);第二点
q) K7 m1 g8 O% P" ]1 L5 ~是如何定义点的？2 T' l3 _; B% X& f
谢谢楼主

(hexagon pc lmax lmin 0.0);phi和 l是何时赋值的（就是这一句，把0.0赋给phi；把lmax赋给l；lmax通过前面的setq lmax (getdist "\n输入正六边形的最大边长: ")）
该句为hexagon函数的调用，该函数在后面给以定义

(defun hexagon(pc l lmin phi);开始定义hexagon函数，该函数有四个全局参数pc、l、lmin、phi

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

xuehong51 · 发表于 2008-10-8 10:40

谢谢球员

函数定义与调用明白了，
polar语句语法还不太清楚

baller · 发表于 2008-10-8 11:10

原帖由 xuehong51 于 2008-10-8 10:40 发表
# p$ @: Y' `) ]' m+ I) X4 A谢谢球员 $ g+ {3 K7 Q2 C$ @2 ^' D; ^
函数定义与调用明白了，
2 R" }% h$ t% _# \4 a2 |polar语句语法还不太清楚

原抄如下

polar

在 UCS 坐标系下，求某点的指定角度和指定距离处的点，并返回该点

(polar pt ang dist)
参数

pt

二维或三维点。

ang

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

dist

与指定点 pt 的距离。

返回值

根据 pt 指定点的类型，返回二维或三维点。

示例

为 polar 提供一个三维点：

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

(2.0 2.0 3.5)

为 polar 提供一个二维点：

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

(2.0 2.0)

xuehong51 · 发表于 2008-10-8 13:03

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

[ 本帖最后由 xuehong51 于 2008-10-8 14:53 编辑 ]

yi9839yi · 发表于 2008-10-8 13:22

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

baller · 发表于 2008-10-8 14:40

原帖由 xuehong51 于 2008-10-8 13:03 发表 ! x% k; i$ c ]* L/ H, q
多谢多谢，知道了。你是从哪抄的呀还有，
$ \" i* \7 t* P5 T/ e(+ phi (/ pi 3.0)) 如何定义的60度（三分之派），phi不是零吗

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

xuehong51 · 发表于 2008-10-8 14:57

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

baller · 发表于 2008-10-8 15:34

原帖由 xuehong51 于 2008-10-8 13:03 发表 |. L6 K+ _, f
多谢多谢，知道了。你是从哪抄的呀

源文件见这里，做个广告

http://www.askcad.com/bbs/thread-25538-1-1.html

yrgui · 发表于 2008-10-10 13:12

呵呵，多谢支持。

		自动登录	找回密码
密码			立即注册

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

回复 #15 wanglibinv7 的帖子

回复 #15 wanglibinv7 的帖子