| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

AutoCAD + Delphi - аргументы для SetXRecordData? [D5, Win2k]

Navi ©   (2005-07-30 09:05:00) 

Здравствуйте!
Как правильно задавать аргументы для 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:00) [1]

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

---

Наверх