Question

请教AutoLISP二次开发怎么使用？

就是我有一个已经写好的程序，怎么使这个程序能编译成指令？希望各位高手能给一个详细说明，本人对这个不懂！谢谢啊！
(defun C:jkx ()
(setq pi1 (/ pi 180))
(setq po0 (getpoint " \n 请输入中心点:"))
(if (= po0 nil)
(setq po0 (list 0 0 0))
)
(SETQ d (GETREAL "\n 请输入分度圆直径:"))
(if (= d nil)
(setq d 100)
)
(setq step (getreal "\n 渐开线精细度(0<精细度<=10):"))
(if (= step nil)
(setq step 1)
)
(setq rd (/ d 2))
(setq os (getver "osmode"))
(setvar "osmode" 0)
(command "UCS" "OR" po0)
(command "CIRCLE" "0,0" rd)
(SETQ R (* rd (COS (* PI1 20)))) ;标准齿轮分度圆的压力角为20度
(SETQ ST 0)
(SETQ STR (* PI1 ST))
(SETQ X (* R (+ (COS STR) (* STR (SIN STR)))))
(SETQ Y (* R (- (SIN STR) (* STR (COS STR)))))
(SETQ XY (LIST X Y))
(COMMAND "PLINE" XY)
(SETQ ST (+ st step))
(WHILE (<= ST 80) ;齿轮上的渐开线压力角不会超过80度
(SETQ STR (* PI1 ST))
(SETQ X (* R (+ (COS STR) (* STR (SIN STR)))))
(SETQ Y (* R (- (SIN STR) (* STR (COS STR)))))
(SETQ XY (LIST X Y))
(COMMAND XY)
(SETQ ST (+ st step))
)
(command "")
(setvar "osmode" os)
(command "UCS" "P")
)

这个代码！弄好了给5

Answer 1

假设你上面的程序没有错误（不考虑程序是否有错误）的情况下。把你上面的代码保存成一个文本格式的文件。名字可以用jkx.lsp等。然后在cad中加载这个程序：一般可以使用appload 命令，会出现对话框，点“文件”，找到你硬盘上的Lisp文件后，点击“加载”即可。 或者用工具菜单中的加载应用程序功能。还可以把LSP文件直接拖到ACAD的绘图窗口。完成加载后。在命令行里输入“jkx”命令就可以运行程序了。程序会提示输入中心点，半径什么的，根据情况输入就行了。
根据lz留言补充：新建一个文本文档，打开文档，把代码粘贴到文件里，保存。然后把扩展名由.txt改成.lsp。就行了。（如果看不见扩展名，到windows的文件夹选项中把显示扩展名打开）

Answer 2

解决了有重谢? ----分都没有，还重谢？

看是什么格式的程序了。
如果你的是LSP，VLX，FAS 。的可以直接拖到CAD窗口里