土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 请高手帮我看下这一段LISP哪里出错了

请高手帮我看下这一段LISP哪里出错了

发布于:2007-05-18 14:57:18 来自:建筑设计/CAD下载及教程 [复制转发]
在网页http://www.newmaker.com/disp_art/0/15179.html上看到这么一段代码:
(defun Psin(d) ;其中d是函数的步长
(setq i 0)
(setq e 360)
(setq x i)
(setq y (cal "2*x-100*sin(x)"))
(setq p1 (list x y))
(while (< i e)
(setq i (+ i d))
(setq x i)
(setq y (cal "2*x-100*sin(x)"))
(setq p2 (list x y))
(command "_line" p1 p2 "")
(setq p1 p2)
)
)
加载后却无法运行PSIN(D);根据我的理解D应该是变量对吧
请问该执行什么命令才能运行?
谢谢

全部回复(5 )

只看楼主 我来说两句
  • 施工cad
    施工cad 沙发
    可惜网易上就没有专讲LISP的地方,我虽写有不少程序,但总想和大家一起捡点便易。如有的话,我定会来顶力支持的。

    这个说法不对:(defun Psin(d) ;其中d是函数的步长

    只要类似(defun Psin(d) 开头的,这就不是一个可自运行带命令名的程序,这类型中 Psin 是供其它程序调用的代号,
    (d)中的 d ,是Psin代号程序中的全局变量(也就是这种代号程序中的可变因素,除d以外都是不可变的),说d步长,是误导,顶多只是在这个被调程序中起到类似步长的作用,但说是步长太不确切了。
    2007-05-27 17:47:27

    回复 举报
    赞同0
  • xcajcj
    xcajcj 板凳
    其实我很想再开一个LISP程序的新帖,不知道我还没有这方面的精力,也不知道还有没有朋友来捧场哈。
    2007-05-18 22:52:18

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.08 万条内容 · 666 人订阅

猜你喜欢

阅读下一篇

CAD三维制图谁会?

我近来自己在学习CAD的三维制图,可其中许多问题不懂,譬如:拉伸时怎么也拾取不上轨迹。请问谁比较了解这方面的知识,如果有,请帮帮忙OK。

回帖成功

经验值 +10