Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.067 c