[George22]

Рисую спираль путем выдавливания региона по полилинии.
Регион нарисовал, полилинию нарисовал.
Выскакивает ошибка на строчке кода:

Код:

[Выделить все]

 
ModelSpace.OleFunction("AddExtrudedSolidAlongPath",Region,PolyLine3d);

Пишет "Несоответствие типов", хотя вручную в Автокаде по команде Выдавить все получается т.е.
регион и полилинию я построил правильно.
Если надо - выложу весь код. По BuilderC++ в связке с Autocad информации практически ноль.
Изучать ObjectARX не хочу. Везде пишут: с Autocad можно работать из любого языка.

[Кулик Алексей aka kpblc]

Чему равны на момент вызова Region и PolyLine3d? Это объекты или массивы объектов?

[George22]

Код:

[Выделить все]

 
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonHelixClick(TObject *Sender)
{
 Variant Arr,Arc,Line,Center;
 double StartAngle = 0;
 double EndAngle = 3.14;

 const int N = 600;//построим спираль из N/3 точек
 Variant A;//массив 3D точек
 Variant PolyLine3d;//траектория-образующая для спирали

 double Radius = Edit1->Text.ToDouble();//радиус спирали
 double H = Edit3->Text.ToDouble(); //высота спирали


 double X = Radius;
 double Y =0;
 double Z =0;

 double Angle=0;//угол между двумя соседними точками спирали по XY
 double dZ;//шаг по высоте между соседними точками
 Center = GetPoint(X,Y,Z);//получим начало массива точек X Y Z
                          //и одновременно центр кружка

 Arc = ModelSpace.OleFunction("AddArc",Center,2,StartAngle,EndAngle);
 Line = ModelSpace.OleFunction("AddLine",Arc.OlePropertyGet("StartPoint"),
                                        Arc.OlePropertyGet("EndPoint"));
 int bounds[] = {0,1};
 Arr = VarArrayCreate(bounds,1,varDispatch);
 Arr.PutElement(Arc,0);
 Arr.PutElement(Line,1);

 Variant Region = ModelSpace.OleFunction("AddRegion",Arr);
 
 //Создаем массив типа Variant из N 3D точек
  int BoundsA[2]={0,N-1};//массив с индексами 0,1,2 ... N-1
  A = VarArrayCreate(BoundsA,1,varDouble);
  double dAngle = 4*3*2*M_PI/N;//шаг по углу поворота
  dZ =H/N;//шаг по Z
  for(int i =0;i<(N-2);i=i+3)
  {
   X=cos(Angle)*Radius;
   Y=sin(Angle)*Radius;

   A.PutElement(X,i);
   A.PutElement(Y,i+1);
   A.PutElement(Z,i+2);
   
   Z=Z+dZ;
   Angle+=dAngle;
  }    
  PolyLine3d = ModelSpace.OleFunction("Add3Dpoly",A);
  
  //здесь ошибка
  ModelSpace.OleFunction("AddExtrudedSolidAlongPath",Region,PolyLine3d);
  Acad.OleFunction("ZoomExtents");
 }
//---------------------------------------------------------------------------

Код:

[Выделить все]

 
//--- Создает координатную точку в переменной типа Variant ------------------
Variant GetPoint(double X,double Y,double Z)
{
  Variant V;
  int Bounds[2]={0,2};//три элемента в массиве с индексами 0,1,2
  V = VarArrayCreate(Bounds,1,varDouble);
  V.PutElement(X,0);
  V.PutElement(Y,1);
  V.PutElement(Z,2);
  return V;
}
//---------------------------------------------------------------------------

[Кулик Алексей aka kpblc]

Почему в построение спирали передается Variant, когда требуется указатель на объект? Передавай Region[0] (ну или как там аналог будет)...

[Александр Ривилис]

Сообщение от George22 Изучать ObjectARX не хочу.

Ну-ну...

Сообщение от George22 Везде пишут: с Autocad можно работать из любого языка.

Улыбнуло. Можно то можно, если имеются в виду только те языки, которые могут обеспечить вызов ActiveX/COM.
Но если сравнишь ActiveX модель AutoCAD и набор классов и методов доступных через ObjectARX или AutoCAD .NET API, то поймешь что практически ничего нельзя...

[Дима_]

То Александр Ривилис - да ладно если не "исхитряться" на тонкости ТЗ то COM'а, как правило, более чем достаточно + только им можно работать "снаружи" штатными средствами (то есть "исхитриться" можно и в другую сторону - что только COM). ИХМО задач где использование COM интерфейса более предпочтительней гораздо больше.

[Александр Ривилис]

Сообщение от Дима_ ИХМО задач где использование COM интерфейса более предпочтительней гораздо больше.

ИМХО - это только класс задач, когда нужно автоматически сгенерировать/подправить чертеж из какой-то программы, для которой AutoCAD что-то побочное и второстепенное...

[George22]

Не может быть, чтобы Builder не справился.
Сдаваться не хочется - уже в дизассемблер влез!

[Александр Ривилис]

У тебя Region - это массив. Алексей тебе уже подсказал, что нужно передавать не массив, а первый элемент массива.

[Дима_]

Сообщение от George22 Сдаваться не хочется - уже в дизассемблер влез!

и что Вы там надеетесь найти где je на jmp поменять??

[George22]

Дима, ты не умничай, а пальцем ткни...
Алексей, спасибо, все получилось:
я сначала написал не подумав:

Код:

[Выделить все]

 
ModelSpace.OleFunction("AddExtrudedSolidAlongPath", Region(0),PolyLine3d);

а надо то так:

Код:

[Выделить все]

 
ModelSpace.OleFunction("AddExtrudedSolidAlongPath", Region.GetElement(0),PolyLine3d);