求教大神cadlisp调用excel并循环

Question

求教大神cadlisp调用excel并循环，有20行或者更多的数据，每一组数据生成一个小的cad图形，但是每个有点微小区别。请教大神怎么处理，给个思路？单项数据如下：
(defun C:tt( / pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9)
(setq pt1 '(0 0))
(setq pt2 '(0 20))
(setq pt3 '(10 20))
(setq pt4 '(10 0))
(setq pt5 '(0 10))
(setq pt6 '(20 10))
(setq pt7 '(20 0))
(setq pt8 '(5 0))
(setq pt9 '(5 -10))
(command "PLINE" pt1 Pt2 Pt3 Pt4 undo)
(command "PLINE" pt5 Pt6 undo)
(command "PLINE" pt1 Pt7 undo)
(command "PLINE" pt8 Pt9 undo)
(command "dtext" pt6 2.5 0 10 undo)
(command "dtext" pt7 2.5 0 20 undo)
(princ)
)

Answer 1

1、在EXCEL中如何使它象WORD一样的自动定时保存文件？
　　 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。

2、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。
但是不是用页眉来完成？
在EXCEL的文件菜单－页面设置－工作表－打印标题；可进行顶端或左端标题设置，通过按下折叠对话框按钮后，用鼠标划定范围即　可。这样Excel就会自动在各页上加上你划定的部分作为表头。

3.在Excel中如何设置加权平均？
加权平均在财务核算和统计工作中经常用到，并不是一项很复杂的计算，关键是要理解加权平均值其实就是总量值（如金额）除以总数量得出的单位平均值，而不是简单的将各个单位值（如单价）平均后得到的那个单位值。在Excel中可设置公式解决（其实就是一个除法算式），分母是各个量值之和，分子是相应的各个数量之和，它的结果就是这些量值的加权平均值。

4、如果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？
把鼠标移到工作表的名称处（若你没有特别设置的话，Excel自动设置的名称是“sheet1、sheet2、sheet3.......”），然后点右键，在弹出的菜单中选择“选择全部工作表”的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚还是打印你工作表。

5、EXCEL中有序号一栏，由于对表格进行调整，序号全乱了,可要是手动一个一个改序号实在太慢太麻烦，用什么方法可以快速解决？
如果序号是不应随着表格其他内容的调整而发生变化的话，那么在制作EXCEL表格时就应将序号这一字段与其他字段分开，如在“总分”与“排名”之间空开一列，为了不影响显示美观，可将这一空的列字段设为隐藏，这样在调整表格（数据清单）的内容时就不会影响序号了。