Текущий архив: 2005.08.28;
Скачать: CL | DM;
Вниз
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]И никто не знает?
Страницы: 1 вся ветка
Текущий архив: 2005.08.28;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.047 c
