AutoLISP初学者参考程序

(setq r (1+ r) s 0 col (1+ col))
);;;End repeat n
(setq Data_f (reverse Data_f))
(Ft_curve t1 t2)
(command)
(End)
);;;End defun
;;;
;;;#数据录入#
;;;保存每个简谐函数相关参数
);;;End repeat n
(princ "\n")
(setq QR (getint "是否修改数据 1.是 2.否:"))
(cond ((= QR 1)
(fixer n)
)
((= QR 2)
(princ "\n数据核对完毕，程序继续运行")
);;;End repeat 4
(repeat n
(print (&p;quot; ")(princ (nth j (nth i Data)))
(setq j (1+ j))
);;;End repeat 4
(setq i (1+ i) j 0)
)
);;;End cond
);;;End while
);;;End defun
;;;
;;;#fixer#
;;;#数据修正#
;;;实现数据修改的核心
;;;
(defun fixer (n / y x e f g Datemp_old Datemp_new Datemp_f Datemp_b)
(repeat n
(repeat 4
(cond ((= s 0) (setq Q (nth s (nth r Data))))
((= s 1) (setq A (nth s (nth r Data))))
((= s 2) (setq w (nth s (nth r Data))))
((= s 3) (setq B (nth s (nth r Data))))
(while (= QR 1)
(setq i 0 j 0 k 1)
(princ "\n您输入的")(princ n)(princ "个简谐函数的参数为:\n")
(repeat 4
(princ " ")(princ k)
(setq k (1+ k))
(setq y (getint "请输入需要修改的数据的行号")
x (getint "请输入需要修改的数据的列号")
)
(setq e 0 f y g 0
Datemp_old nil Datemp_new '() Datemp_f '() Datemp_b '();;;创建空表，暂时保存数据
;;;3.在命令栏输入“go”，再输入“ft”，即可执行程序。
;;; 提示：程序结束后若没看到曲线，则输入“zoom”->“a”缩放窗口即可
;;;【以上为说明，从下文第二行开始为程序主体】
;;;
;;;#初始化#
;;;
(defun C:Go ()
;;;#定义全局变量#
(setq Data nil;;;;;;;全局变量Data，用来保存程序中要使用的数据
;;;此程序注释详细，过程简单易懂，适合初学者用来熟悉AutoLISP编程语言
;;;下载后按下述方法即可直接运行
;;;使用方法如下：
;;;1.下载文件后，用记事本打开，点击“文件”->“另存为”
入新值:") Datemp_new));;;将修改后的数据存入缓存表Datemp_new
(setq Datemp_new (cons (nth g Datemp_old) Datemp_new));;;将包含待修改数据的表中的其它数据存入Datemp_new
);;;End cond
(setq s (1+ s))
);;;End repeat 4
(command "color" col)
(cond ((= Q 1) (sin_curve A w B t1 t2);;;调用正弦曲线绘制函数
(progn
(setq Data_f (cons Data_sin data_f))
Data '();;;置空Data，以便重新存入缓存表内的数据
)
(repeat (- n y)
(setq Data (cons (nth e Datemp_b) Data);;;将缓存表Datemp_b的数据存入Data
e (1+ e)
)
);;;End repeat
(setq Data (cons Datemp_new Data));;;将缓存表Datemp_new的数据存入Data
(setq Q (getint "1.修改 2.确认:"))
);;;End while
(setq n (getint "请输入简谐函数个数:"))
(Data_in n);;;调用数据录入函数Data_in
(Data_fix n);;;调用数据修函数Data_fix
)
)
((= Q 2) (cos_curve A w B t1 t2);;;
调用余弦曲线绘制函数
(progn
(setq Data_f (cons Data_cos data_f))
)
)
);;;End cond
;;;
(defun Data_In (n / i j u v Data_i Data_j )
(setq Data nil i n j 4 u 1 v 1
Data_i '() Data_j '();;;创建空表,用来保存录入数据
)
(repeat i
(princ "\n执行输入第")(princ u)(princ "个简谐函数参数\n")
(repeat (- y 1)
(setq Data (cons (nth f Datemp_f) Data);;;将缓存表Datemp_f的数据存入Data
f (1+ f)
)
);;;End repeat i
(setq data (reverse Data_i));;;将数据表Data_i转存入
);;;End defun
;;;
;;;#数据修改#
;;;修改录入的数据
;;;
(defun Data_fix (n / QR i j k)
(setq QR 1)
(while (= Q 1)
(setq t1 (getreal "请输入F(t)的左区间t1:")
t2 (getreal "请输入F(t)的右区间t2:")
)
(princ "\n您输入的区间为[")(princ t1)(princ "π,")(princ t2)(princ "π]\n");;;显示输入区间[t1,t2]
)
;;;
;;;改变系统变量，控制程序执行过程中不显示中间过程
;;;
(setvar "cmdecho" 0)
;;;
(princ "\n初始化...\n")
;;;
;;;改变线宽
;;;
(command "layer" "LW" "0.35" "0" "")
(repeat j
(cond ((= v 1) (setq Data_j (cons (getint "请选择简谐函数<1>sin;<2>cos:") Data_j)))
((= v 2) (setq Data_j (cons (getreal "请输入参数<A>的值:") Data_j)))
;;; 在“保存类型”中选择“所有文件”
;;; 在“文件名”中输入：xxx.lsp，点击保存
;;;2.打开AutoCAD，点击“工具”->“AutoLISP”->“加载应用程序”
;;; 选择xxx.lsp，点击“加载”后再点“关闭”
;;; 注意：请在CAD环境下打开线宽，关闭对象捕捉!!!
(repeat (- n y)
(setq Datemp_b (cons (nth f Data) Datemp_b);;;将包含待修改数据的表之后的所有表存入缓存表Datemp_b