# aardio 范例: 在 CAD 进程内批量读取 LISP 数据，不使用旧 GetLispFunctions COM 函数通道。



```aardio
// 在 CAD 进程内批量读取 LISP 数据，不使用旧 GetLispFunctions COM 函数通道。
import com.cad;
var cad = com.cad();

if(!cad) error("无法连接 CAD");
if(!cad.IsQuiescent()) error("CAD 正忙，请先检查原任务");

var doc = cad.Documents.Add();
var code = /**
(list
  (cons "document" (getvar "DWGNAME"))
  (cons "cadVersion" (getvar "ACADVER"))
  (cons "units" (getvar "INSUNITS"))
  (cons "text" (strcat (car args) " + CAD"))
  (cons "lists" '((1 2 3) (4 5 6)))
  (cons "point" '(1.5 2.5 0.0)))
**/;

var result,err,task=cad.RunLisp(code,["aardio"],doc,{timeout=15000});
if(task) print("恢复目录",task.path);

print(result,err);
// 要在提交前持久化路径，请改用 CreateLispTask，参见 tasks.aardio。
// 新建测试图纸不自动保存或关闭。旧 GetLispFunctions/LispExp 仍兼容保留，
// 如需诊断它们，应在独立进程中执行，不在 AI 宿主中反复调用可疑原生接口。

```