[求助]：怎样运用这个lsp

joony

哪位大哥应输入什么命令才能用

joony

　; This program is using for drawing a helix

　　(setq　b1　(getpoint　"请输入基点："))　　　

　　(setq　r　(getreal　"半径 r=："))

　　(setq　t1　(getreal　"节距 t1=："))

　　(setq　k　(getint　"段数 k=："))

　　(setq　n　(getint　"圈数 n=："))　

　　(setq　ta　(/　(*　2　3.14159)　k))

　　(setq　j1　(/　t1　k))

　　(setq　a　0)

　　(setq　jj　0)

　　(setq　ii　0)

　　(command　"ucs"　"o"　b1)

　　(command　"3dpoly"　(list　r　0　0))

　　(repeat　n

　　(repeat　k

　　(setq　jj　(+　jj　1))

　　(setq　a　(+　ta　a))

　　(setq　x　(*　r　(cos　a)))

　　(setq　y　(*　r　(sin　a)))

　　(setq　z　(*　j1　jj))

　　(setq　p2　(list　x　y　z))

　　(command　p2)

　　)

　　(setq　ii　(+　ii　1))

　　(setq　z　(*　t1　ii))

　　)

　　(command　"" )

　　段数k 最好为36或36的倍数（72）。绘弹簧时，n为弹簧的总圈数；绘螺纹时，若螺纹的长度为L，则n=L / t1。将这个LISP程序保存为“helix.lsp"。
　　在编写LISP程序时，应注意输入一定要正确，括号和空格都必不可少，否则会影响到螺旋线的轨迹。

zxq0220

不用任何命令，用LOAD函数加载时自动执行。但最后两行要注释一下。

vang8866

This program is using for drawing a helix

　　(setq　b1　(getpoint　"请输入基点："))　　　

　　(setq　r　(getreal　"半径 r=："))

　　(setq　t1　(getreal　"节距 t1=："))

　　(setq　k　(getint　"段数 k=："))

　　(setq　n　(getint　"圈数 n=："))　

　　(setq　ta　(/　(*　2　3.14159)　k))

　　(setq　j1　(/　t1　k))

　　(setq　a　0)

　　(setq　jj　0)

　　(setq　ii　0)

　　(command　"ucs"　"o"　b1)

　　(command　"3dpoly"　(list　r　0　0))

　　(repeat　n

　　(repeat　k

　　(setq　jj　(+　jj　1))

　　(setq　a　(+　ta　a))

　　(setq　x　(*　r　(cos　a)))

　　(setq　y　(*　r　(sin　a)))

　　(setq　z　(*　j1　jj))

　　(setq　p2　(list　x　y　z))

　　(command　p2)

　　)

　　(setq　ii　(+　ii　1))

　　(setq　z　(*　t1　ii))

　　)

　　(command　"" )

　　;| 段数k 最好为36或36的倍数（72）。绘弹簧时，n为弹簧的总圈数；绘螺纹时，若螺纹的长度为L，则n=L / t1。将这个LISP程序保存为“helix.lsp"。
　　在编写LISP程序时，应注意输入一定要正确，括号和空格都必不可少，否则会影响到螺旋线的轨迹。|;

joony

不行，在命令行输入什么

hisum

在程序首行加入 (defun c:cmd ()
再在结尾加入  )

cmd是你自定的命令名
Load以后，在命令行输入cmd即你定义的命令名就行了

这是lisp程序最起码的东西啊

zxq0220

最初由 joony 发布
[B]不行，在命令行输入什么 [/B]

(LOAD"文件名")

网络水手

(load "螺旋线.lsp")

joony

谢绝大家

zxq0220

最初由 joony 发布
[B]谢绝大家 [/B]

那么说来是我们写的都不对啦，不然怎么是“谢绝”呢。

joony

对不起，应是谢谢