Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   automatizacion Autocad 2004 con Builder (https://www.clubdelphi.com/foros/showthread.php?t=48796)

txakal 04-10-2007 12:19:37

automatizacion Autocad 2004 con Builder
 
Hola, estoy desarrollando una aplicacion de automatizacion de autocad usando C++ Builder 2006, tengo un problema a la hora de tratar de mostrar texto por pantalla. Se pueden mostar lineas, circulos, puntos... pero no puedo mostrar un texto. Si alguien supiera algo al respecto seria de agradecer. Pongo el codigo para aclarar un poco:

//array de numero de posiciones
int bounds[] = {0,2};


//variables de tipo variant para guardar los puntos
Variant v1, v2;
// puntero para el circulo
IAcadCircle *circulo;
//puntero para la linea
IAcadLine *linea;
//espacio de trabajo
IAcadModelSpace * space;
//creo y cargo los arrays
v1 = VarArrayCreate(bounds,1,varDouble);
v1.PutElement(100,0);
v1.PutElement(100,1);
v1.PutElement(0,2);

v2 = VarArrayCreate(bounds,1,varDouble);
v2.PutElement(200,0);
v2.PutElement(200,1);
v2.PutElement(0,2);

//puntero variable de texto requerida en AddText
wchar_t* u= L"prueba";

//puntero a variable de tipo IAcadText
IAcadText *t;

double h=50.10;

try{
//creo la aplicacion
CoAcadApplication::Create(&app);
app->Visible = true;

space = app->ActiveDocument->ModelSpace;
//me pinta el circulo
space->AddCircle(v1,50,&circulo);
//me pinta la linea
space->AddLine(v1, v2, &linea);
//No me escribe el texto
space->AddText(u,v2,h,&t);
}.........
..........

A la hora del debug la variable t que se supone que deberia contener la direccion del texto resulta estar a NULL. Si alguien tiene alguna idea de por donde van los tiros seria de gran ayuda.

Gracias, un saludo


La franja horaria es GMT +2. Ahora son las 21:19:43.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi