自编三角函数程序如何挂到Auto CAD 2004 中？

syw · 发表于 2004-5-9 04:20:00

各位网友好！
如下是BDYCAD网友在另一帖中回答，有关三角函数做图的内容。
我的问题是：
A：编这样的程序用的是什么软件进行编译的，到哪可以找到下载软件？
B：该程序编译后，如何挂到Auto    CAD 2004    中。
谢谢！syw    040509    04.15
/**********************************************
剛寫了個SIN曲線的.
; ＳＩＮ曲線程序
; 2003-12-09
; BY : BDYCAD
(defun c:sin(/ os pt1 pt oo i)
(setq os (getvar "osmode"))(setvar "osmode" 0)
(setvar "cmdecho" 0)
(SETQ pt1 (getpoint "\n請輸入起始點:"))
(SETQ pt pt1 oo pt1 i 0)
(command ".spline" pt1)
(REPEAT 36
(command (list (+ (car pt) (/ i 90.0)) (+ (cadr pt ) (sin (* pi (/ i 180.0))))))
(setq i (+ i 10)))
(command "" "" "")
(setvar "osmode" os)(setvar "cmdecho" 1)
(princ"\nYou are OK !")
(princ))