Automation в AutoCAD с VC++

// ObjectARX defined commands

#include "StdAfx.h"
#include "StdArx.h"

char* Decode (char*);
char* Recode (char*);
void Body_work (char*);

// This is command 'DECODE'
void decoddecode()
{
    // TODO: Implement the command
char flag = 'd';
    Body_work(&flag);
}

// This is command 'RECODE'
void decodrecode()
{
    // TODO: Implement the command
char flag = 'r';
    Body_work(&flag);
}
void Body_work (char *flag)
{
    // TODO: Implement the command    // TODO: Implement the command
struct resbuf eb1, *tr_obj, *p;
char sbuf1[5]; // Buffers to hold strings
char *nl;
char* txt1;
ads_name ssname1, object1;
long ilast, i;
eb1.restype = 0; // Entity type group
strcpy(sbuf1, "TEXT");
eb1.resval.rstring = sbuf1; // Entity type is text.
eb1.rbnext = NULL;
acedSSGet(NULL, NULL, NULL, &eb1, ssname1);
acedSSLength(ssname1, &ilast);
//acutPrintf("\nCounts quantity objects : %d", ilast);

switch (*flag)
{
case 'd':
acedSetStatusBarProgressMeter("Decode text in R15 format", 0, ilast);
//break;
case 'r':
acedSetStatusBarProgressMeter("Recode text in R12 format", 0, ilast);
default:
    break;
}
for (i = 0;irbnext)// DXF code  string search
//if ((p->restype >= 0) && (p->restype restype = 1;
     if (p->restype == 1) // if DXF code = string
    {                                                        
txt1= p->resval.rstring;
if(*flag == 'd')
nl = Decode (txt1);
else
nl = Recode (txt1);
strcpy(p->resval.rstring, nl);
//       acutPrintf("   Context : %s", txt1);

// модификатор
if (acdbEntMod(tr_obj) != RTNORM) // если объект можно модифицировать
{
             acutRelRb(tr_obj);
             //return 0; // Error
         }//End модификотор
   
         break; // From the for loop
     } // end if DXF code = string
acutRelRb(tr_obj); // Release result buffer.
acedSetStatusBarProgressMeterPos(i);
}// end search object
acedRestoreStatusBar();
acedSSFree(ssname1);
}// body work

char* Decode (char* text)
{
    int i,num;
    unsigned char a;
    char* old_text=new char[strlen(text)+1];
    strcpy(old_text,text);
num = strlen (text);// количество букв
for(i = 0;i127)&&(a211))>255)
{
   strcpy(text , old_text);
// acutPrintf("\nСработало");
   break;
}
else
a=a + 64*((a>127)&&(a211);
text[i]=a;
//acutPrintf(" a после = %d",a);
}
delete[strlen(old_text)+1] old_text;
return text;
}
char* Recode (char* text)
{
int i,num;
    unsigned char a;
    char* old_text=new char[strlen(text)+1];
    strcpy(old_text,text);
num = strlen (text);// количество букв
for(i = 0;i191)&&(a239))191)&&(a239);
text[i]=a;
//acutPrintf(" a после = %d",a);
}
delete[strlen(old_text)+1] old_text;
return text;
  }

P.S.
Это конвертор для текста из акада r12 в r15 и обратно
Написан криво но работает.
Хотелось бы еще увидеть примеры проектов на ARX.

На VC++ нету
А на VB5 есть под ACAD14 но цепляет и ACAD2000

ИМХО делаеться проще...
Я коннектюсь к Автокаду через COM, создаю объект типа acadDoc(ThisDrawing), а затем практически все команды которые есть в VBA работают...
Правда кодилось не в VC++, а в Делфях, но если интересно код могу выложить.

Q. Вопрос с ShaggyDoc-у. Я, честно говоря, не очень понял, почему это ?лучще послать LISP-выражение, ? чем писать на VC++ конкретную команду?? ? Чем это лучше и проще? Какая тут мысль имелась ввиду?
С уважением, VVV

Прошу прощения, но мне кажется, что добровольный адвокат ShaggyDoc-а еще больше запутал вопрос. При чем тут удобство работы с отлаженным куском кода, когда речь идет просто о  способе передачи данных от одного приложения к другому. Автокад  пытается выполнить как команду, то что передается его главному окну. Конечно он обработает и кусок лисп-кода. Но какой  смысл с помощью сообщения предавать этому окну  непонятного размера  ?отлаженный кусок кода?, если можно из внешнего приложения просто послать ему короткое имя  лисп или ARX команды-функции(предварительно загруженной  в автокад к-либо образом,  в том числе,  путем передачи команды загрузки  из внешней программы)  или родной автокадовской команды. При этом никто не мешает сколько угодно отлаживать,  как само внешнее приложение,  так и уже ?отлаженный кусок кода?,  который отрабатывает в среде Автокада.  Лишь бы название той команды,  которую посылает внешняя программа не менялось. Возможно,  я что-то недопонял в предложении ShaggyDoc-а, и именно поэтому  просил его  разъяснить мне свою точку зрения.