请问各位高手，我想用lisp 做一个程序， 首先读取excel 并在外部参照中查找。

难点是读取Excel的数据，给你个链接到那下载个CAD直接连接Excel的源代码

http://wwwatablexcom/download/vlxlszip这个会了，循环执行缩放和函数应该都是极简单的事情了。

假如指定的lisp程序存入"e:\abcdlsp"，其中有函数gczd4-1带有三个参数即(gczd4-1 X1 X2 X3)和命令cc，则VBNET调用程序如下：

Dim AcadApp As Object

Dim AcadDoc As Object

AcadApp = GetObject(, "AutoCADApplication")

AcadDoc = AcadAppActiveDocument

AcadDocSendCommand("(load " & Chr(34) & "e:\\abcdlsp" & Chr(34) & ") ")

AcadDocSendCommand("(gczd4-1 " & Chr(34) & X1 & Chr(34) & Chr(34) & X2 & Chr(34) & Chr(34) & X3 & Chr(34) & ") ")

AcadDocSendCommand("(c:cc) ")

AcadDoc = Nothing

AcadApp = Nothing