aardio + AutoLISP 快速入门

曾有人跟我说希望 aardio 能用于开发手机 APP …… 理由是：“我有了自行车，但我现在需要三轮车，我不想再付出更多成本去学习三轮车 …… ”

一个同时具有自行车、三轮车功能的万能车子是这样的：

追求完美与万能的同时很可能就会将原本简单的事搞得更复杂。相反，组合使用不同的编程语言，擅用不同编程语言的优势，扬长而避短，这更简单与现实一些。

所以，在 Excel 里我们需要学习 VBA，在 AutoCAD 里我们需要学习 AutoLISP。

一、在 AutoLISP 中调用 aardio 函数

aardio 与 AutoCAD 交互 属于典型的跨进程调用。进程外调用的优势是可以创建干净无污染、稳定可靠的隔离运行环境。如果是单次调用，无论是跨语言还是跨进程调用，基本上我们是感觉不到延迟的。

我们并不需要让每句执行的代码都在 aardio 与 AutoCAD 之间来回奔跑。而是将可以在进程内独立执行的代码写为 aardio 函数、AutoLISP 函数，然后再调用这些函数就会很快。

下面我们将演示如何在 AutoLISP 中调用 aardio 函数，非常非常简单。

AutoCAD(AutoLisp) 并不支持多文件对话框，下面我们用 AutoLISP 调用 aardio 快速创建多文件对话框。

点击『主菜单 / 新建工程』。

在工程向导界面点选『窗口程序 / ActiveX EXE 』。

设置好控件类名（ProgID)，最后点创建工程。

工程的『用户库 』中生成了与 ProgID 命名相同的 ActiveX 控件类库。

只要在 cad 类中直接添加函数，就可以在其他支持 COM 控件的程序或编程语言中调用该函数了。

我们直接点击『发布』按钮生成 EXE 文件。

双击运行生成的 cad.exe ，弹出注册向导：

直接点击按钮『是』注册控件。

注册 aardio 控件并不需要管理权限，也可以编程调用命令行 "cad.exe /r" 静默注册控件（不显示对话框）。

在 AutoLisp 中定义一个调用 aardio 控件的函数：

(defun GetFiles (filter title / obj files)
  ;; 获取或创建 COM 对象
  (setq obj (vlax-get-or-create-object "aardioTestControl.cad"))

  ;; 获取 AutoCAD 窗口句柄，设为对话框所有窗口
  (setq hwndOwner (itoa(vla-get-hwnd(vlax-get-acad-object))))
  
  ;; AutoLisp 符号名自动转大写，在 aardio 里要实现为大写的 GETFILES
  ;; vlax-invoke 会将 aardio 返回值自动转为 LISP 类型，比 vlax-invoke-method 简单。
  (setq files (vlax-invoke obj 'GetFiles filter title hwndOwner))
  
  ;; 释放 COM 对象
  (vlax-release-object obj)  

  files 
)

然后在 AutoLISP 中调用上面的函数：

;; 调用 GetFiles 函数
(setq files ( GetFiles  "所有文件|*.*|" "标题：AutoCAD") )

;; 检查返回值并打印结果
(if files
(progn
	(princ "\n选择了以下文件:")
	(mapcar 'print files)
)
(princ "\n未选择文件")
)

注意 AutoLISP 的符号名会自动转为大写，所以在 aardio 的 ActiveX 控件类库中要大写函数名 GETFILES 。

aardio 的 ActiveX 工程默认就会生成上面示例所需的 GETFILES 函数以及 AutoLISP 调用示例。

二、加载并执行 LISP 代码或文件。

点击『 aardio 范例 / COM 组件 / AutoCAD 』可以查看 aardio 调用 AutoCAD 的全部范例：

在 aardio 中加载并执行 LISP 代码或文件：

import com.cad;
var cad = com.cad();
 
//加载 LISP 代码或者 LSP 文件。  
cad.LoadLisp(`
(setq c:hello nil)
(defun c:hello(/ name)
(set 'name (getstring "What's your name? "))
(set 'msg (strcat "Hello, " name <?=  
    tostring(time()),"这是 aardio 对象" 
?>))
(write-line msg))`);

参数如果直接指定 LISP 代码，则会通过临时文件加载。

aardio 加载的 LISP 代码支持 aardio 模板语法（ 参考 aardio 语法文档 ），可在 LISP 代码中的 <? 与 ?> 模板标记内嵌入 aardio 代码。

在 <? 与 ?> 模板标记内指定非空数组（ 指定多个参数时，也会自动转换为数组 ），则将数组成员转换为 LISP 对象并以空格分开多个参数输出到 LISP 代码（首尾不加括号）。

模板参数为非空数组时，数组成员按以下规则转换为 LISP 代码：

1、数值直接输输出，flase 转为 nil ，true 转为 T    
2、数组或嵌套的数组参数都会转换为 LISP 表（首尾有括号）， 如果 cons 字段为 true 则转换为点对（首尾有括号）。
3、包含 car,cdr 成员的表会转换为点对（首尾有括号）。其他名值对转换为关联列表。
4、其他类型统一调用 tostring() 转换为字符串，   然后按 LISP 语法进行转义，首尾加双引号。 

模板参数为单个参数时，如果参数为包含名值对的表对象则仍按上面的规则转换，其他参数则转换为字符串原样置入到 LISP 代码。

三、执行 AutoCAD 命令

aardio 调用 AutoCAD 命令：

import com.cad;
var cad = com.cad();

//前置并显示 AutoCAD 窗口
cad.ShowForeground();

//执行 AutoCAD 命令
cad.SendCommand(`hello`);

可以如上执行 AutoCAD 里的所有命令以及 AutoLISP 表达式，跟在 AutoCAD 里敲命令效果是一样的。

cad.SendCommand() 函数同样支持用前面介绍的模板语法规则嵌入 aardio 代码。

四、通过向 AutoCAD 窗口发送消息执行命令

也可以向 AutoCAD 的窗口发送消息执行 AutoCAD 命令。

import process;
import com.cad;

//获取 AutoCAD 主窗口
var hwnd = process.findWindow( "@acad.exe" );

//发送并执行 AutoCAD 命令 。 
com.cad.sendCopyData(hwnd,`(print "hello")`)

com.cad.sendCopyData 同样支持用前面几个函数相同的模板语法规则嵌入 aardio 代码。

五、通过 COM 接口调用 AutoCAD

示例：

import com.cad;
var cad = com.cad();  

//然访问文档对象必须显示 AutoCAD 窗口 
cad.Visible = true 

//创建文档
if ( ! cad.Documents.Count ) {
    cad.Documents.Add();
}

//调用 AutoCAD 拉口函数
var pt1 = cad.ActiveDocument.Utility.GetPoint(,'\r\n请选择第一点: ')
var pt2 = cad.ActiveDocument.Utility.GetPoint(,'\r\n请选择第二点: ')
cad.ActiveDocument.ModelSpace.AddLine(pt1,pt2);

//调用 AutoCAD 拉口函数
var selection = cad.ActiveDocument.SelectionSets.Add("Test_SelectionSet");
selection.Select ( cad.acSelectionSetAll,,,com.word({0}),com.Variant({"LINE"}) );

注意 aardio 中的单个数值，整数传入 COM 接口时默认为 32 位整型（int），小数默认为 64 位浮点数（ double ）。 而 aardio 中的数值数组传入 COM 接口默认为 double 类型数组，字符串或字符串数组默认为 BSTR 类型。

aardio 提供了以下函数可以明确声明参数的 COM 类型：

com.byte() 将参数指定的数值或数组声明为 8 位整型数值。
com.ubyte()  将参数指定的数值或数组声明为 8 位无符号整型数值。
com.word() 将参数指定的数值或数组声明为 16 位整型数值。
com.uword() 将参数指定的数值或数组声明为 16 位无符号整型数值。
com.int() 将参数指定的数值或数组声明为 32 位整型数值。
com.uint() 将参数指定的数值或数组声明为 32 位无符号整型数值。
com.long() 将参数指定的数值或数组声明为 64 位整型数值。
com.ulong() 将参数指定的数值或数组声明为 64 位无符号整型数值。
com.float() 将参数指定的数值或数组声明为 32 位浮点数值。
com.double() 将参数指定的数值或数组声明为 64 位浮点数值。
com.Variant() 将参数指定的值或数组声明为变体类型。

六、在 aardio 中调用 LISP 函数。

aardio 调用 LISP 函数示例：

import com.cad;

//获取或创建 AutoCAD 对象
var cad = com.cad();
 
//获取 Lisp 函数表
var lisp = cad.GetLispFunctions();

//调用 LISP 函数
var path = lisp.getFiled("打开文件:", "./", "*", 8);

//调用 vl-cmdf 函数执行 CAD 命令。
lisp.vl.cmdf("commandline")

lisp 对象本身也可以用作创建 LISP 表达式的函数，例如：

import com.cad;
var cad = com.cad();
var lisp = cad.GetLispFunctions(); 

//调用 LISP 函数
lisp.print(

    //lisp 自身可作为生成 LISP 表达式的函数调用。
    lisp( {
        {car=12,cdr=23},//LISP 点对
        {1,2,3,path},//LISP 列表 
        {name="Tom",age=23},//LISP 关联列表
        "来自 aardio  代码的字符串",
        123,
        false,
        true 
    } ) 
);

aardio 数组会自动转换为 LISP 列表，表对象会自动转换为 LISP 关键列表。而包含 car,cdr 字段的表会转换为 LISP 点对。