aardio 范例: AutoCAD：对象数组与关联填充。新建测试图纸，不操作已有模型。

// AutoCAD：对象数组与关联填充。新建测试图纸，不操作已有模型。
import com.cad;
var cad = com.cad();

if(!cad) error("无法连接 AutoCAD");
cad.Visible = true;

if(!cad.IsQuiescent()) error("请先结束 AutoCAD 当前命令");
var doc = cad.Documents.Add();

// 先准备闭合边界。AddHatch 后第一件事必须是追加外边界。
var circle = doc.ModelSpace.AddCircle([0,0,0],15);
var hatch = doc.ModelSpace.AddHatch(1/*acHatchPatternTypePredefined*/,"ANSI31",true);

hatch.AppendOuterLoop([circle]); // 自动转换为 VT_DISPATCH SAFEARRAY。
hatch.PatternScale = 1.0;
hatch.Evaluate();

doc.Regen(cad.acAllViewports);
cad.ZoomExtents();

print({document=doc.Name;circle=circle.Handle;hatch=hatch.Handle;area=hatch.Area});
// ANSI31 是预定义图案，不是用户自定义填充类型 0。