AutoCAD + Delphi - аргументы для SetXRecordData?

← →
Navi (2005-07-30 09:05) [0]

Здравствуйте!
Как правильно задавать аргументы для SetXRecordData? Делаю так:

const TAG_XRECORD_NAME = "XXX";

var
Acad: IAcadApplication;
blockObj: IAcadBlock;
TablesDictionary: IAcadDictionary;
XRecord: IAcadXRecord;
XRecordDataType, XRecordData: OleVariant;
...
blockObj:= Acad.Application.ActiveDocument.Blocks.Item("1");
TablesDictionary:= blockObj.GetExtensionDictionary;
XRecord:= TablesDictionary.AddXRecord(TAG_XRECORD_NAME);
XRecordDataType:= VarArrayCreate([0, 1], varSmallint);
XRecordDataType[0]:= 1;
XRecordDataType[1]:= 1;
XRecordData:= VarArrayCreate([0, 1], varOleStr);
XRecordData[0]:= "(10, 10)";
XRecordData[1]:= "(20, 20)";
try
XRecord.SetXRecordData(XRecordDataType, XRecordData);
except
raise;
end;

вываливается с ошибкой "Invalid argument type in SetXRecordData method".
Спасибо.

← →
Navi (2005-08-07 09:04) [1]

И никто не знает?

AutoCAD + Delphi - аргументы для SetXRecordData? Найти похожие ветки