Программирование в Сапфир

var Wall = Storey.NewModel(TM_WALL);  // В текущем этаже создаем объект стена

void FindWall(void)
{
  // поиск стены на этаже 
  CSpStorey * pStorey = GetGlobalStorey();
  if (!pStorey)
    return; // нет текущего этажа

  long cnt = pStorey->GetCountModel(); // число моделей в этаже
  for (long i = 0; i < cnt; i++)
  {
    CSpObj pObj = pStorey->GetModelByIndex(i); // очередной объект
    long type = pObj.GetTypeModel(); // получить тип объекта
    if (type == TM_WALL)// 10 тип стены
    {
      CSpPolyLine PLine = pObj.GetAxisLine();  // Получаем у объекта стены осевую полилинию
      CP3Array pnts; // массив 3D точек
      PLine.GetPoints(pnts); // получаем точки полилинии
      long cnt_pt = pnts.GetCount(); // число точек
    }
  }
}

ref class CP3{
  public:
    double x, y, z;
  };

SapfirLib::AutoModel ^pObj = (SapfirLib::AutoModel ^)pSt->GetModelByIndex(i);
if (pObj)
{
  long type = pObj->TypeModel; // получить тип модели
  if (type==10) // Если стена TM_WALL
  {
    pModel->Select = 1; // выделим (подсветим) стену в САПФИРЕ
    SapfirLib::AutoPolyLine ^pLine = (SapfirLib::AutoPolyLine ^)pObj->GetAxisLine();
    if (pLine)
    {
      Object^ ObjPnt = gcnew array<Ob ject ^>(0); // Создаем пустой SafeArray массив(такая реализация для работы с массивами вариантов нужна для совместимости с скриптовыми языками)
      pLine->GetPoints(ObjPnt); // получаем массив точек, где Points[0]=x1,Points[1]=y1,Points[2]=z1,  Points[3]=x2,Points[4]=y2,Points[5]=z2,.....
      Array ^ArrPnt = (System::Array^)ObjPnt; // приводим к массиву
      long len = ArrPnt->Length; // количество координат в массиве
      long cnt = len / 3; // количество точек
      array<CP3 ^> ^ Points = gcnew array<CP3 ^>(cnt); // распределяем массив для точек
      for (long j = 0; j < cnt; j ++ )
      {
        CP3 ^pnt = gcnew CP3;
        pnt->x = (double)ArrPnt->GetValue(j*3);
        pnt->y = (double)ArrPnt->GetValue(j * 3 + 1);
        pnt->z = (double)ArrPnt->GetValue(j * 3 + 2);
        Points[j] = pnt; // заносим точку в массив
      }
    }
    break;
  }
}

#include <atlbase.h>
#include <atlsafe.h>
#import "...\sapfir.tlb" // auto_search auto_rename 

// константы см. const_model.jsh  
#define IMF_3D  0x001 // 3D модель
#define TM3_LINE    1  // тип сегмента: отрезок
#define TM3_ARC     2  // тип сегмента: дуга
#define TM3_BEZIER  3  // тип сегмента: Безье
#define TM_WALL    10    // тип объекта стена
#define UPDATE_MODELS 0x1000  // перерисовать модель документа
//.....
void OnTestSapfir()
{
  HRESULT hr = CoInitialize(NULL);
  using  namespace SapfirLib;
  IApplication *SapfirApp = NULL;
  CLSID ClassId;
  hr = CLSIDFromProgID(L"Sapfir.Application", &ClassId);
  if (FAILED(hr))
    return ;

  hr = CoCreateInstance(ClassId, NULL, CLSCTX_LOCAL_SERVER | CLSCTX_INPROC_SERVER, __uuidof(IApplication), reinterpret_cast<void**>(&SapfirApp));
  if (FAILED(hr))
    return;

  if (SapfirApp)
  {
    // в версиях 2016 и 2017 САПФИР запускается без окна
    SapfirApp->Visible = true;  // так можно показать окно САПФИРА
    ISapfirDocPtr pDоc = SapfirApp->GetActiveDoc(); // берем активный документ
    if (pDоc) // если документ есть
    {
      IAutoStoreyPtr pSt = pDоc->GetActiveStorey(); // берем активный этаж документа
      if (pSt) // если есть активный(текущий) этаж
      {
        long cnt = pSt->CountModel; // количество объектов на этаже
        for (long i = 0; i < cnt; i++)
        {
          IAutoModelPtr pMod = pSt->GetModelByIndex(i); // берем очередной объект
          if (pMod)
          {
            if (pMod->TypeModel == TM_WALL) // если это стена
            {
              IAutoPolyLinePtr pLn = pMod->GetAxisLine(); // берем полилинию контура
              if (pLn)
              {
                { //=================> Получение всех точек осевой стены
                  VARIANT  vPntArr;
                  //--> первый способ
                  SAFEARRAYBOUND sab;
                  sab.lLbound = 0; sab.cElements = 0;
                  vPntArr.parray = SafeArrayCreate(VT_VARIANT, 1, &sab);
                  //<--
                  //--> второй способ
//                  CComSafeArray<VARIANT> arr(1);
//                  vPntArr.parray = arr;
                  //<--
                  vPntArr.vt = VT_ARRAY | VT_VARIANT; //!!! Нужно объявить как массив вариантов. Так нужно для всех массивов.
                  pLn->GetPoints(&vPntArr); // получаем точки
                  
                  if (SAFEARRAY* saData = vPntArr.parray)
                  {
                    VARIANT HUGEP *pdFreq; 
                    HRESULT hr = SafeArrayAccessData(saData, (void HUGEP* FAR*)&pdFreq); // получаем указатель на массив вариантов
                    long num_coord = saData->cbElements;
                    double pnt;
                    for (long ic = 0; ic < num_coord; ic++)
                      pnt = pdFreq[ic].dblVal;
                  }
                }//<=====================

                { //=====================>  пройтись по сегментам полилинии
                  long cnt_l = pLn->GetCountLine(); // количество сегментов в полилинии 
                  for (long is = 0; is < cnt_l; is++)
                  {
                    IAutoLinePtr pSeg = pLn->GetLine(is);
                    if (pSeg)
                    {
                      long  typeSeg = pSeg->GetTypeModel();
                      if (typeSeg == TM3_LINE) // отрезок
                      {
                        CComSafeArray<VARIANT> arr(1);
                        VARIANT  vPntArr;
                        vPntArr.parray = arr;
                        vPntArr.vt = VT_ARRAY | VT_VARIANT; // массив вариантов
                        pSeg->GetPoints(&vPntArr); // получаем точки
                      }
                    }
                  }
                }//<=======================

                { //======================> заменим точки осевой линии стены
                  CComSafeArray<VARIANT> arr(6); 
                  double   arrCood[] = { 0.05, 0.1, 0.0, 3.45, 1.2, 0.0 }; // координаты в метрах
                  for (long ic = 0; ic < 6; ic++)
                    arr[ic] = arrCood[ic];
                  VARIANT  vPntArr;
                  vPntArr.vt = VT_ARRAY | VT_VARIANT; // массив вариантов
                  vPntArr.parray = arr;
                  pLn->SetPoints(vPntArr); // заносим новые точки (стена об этом ничего не знает!!!)

                  pMod->RegenModel(); // Заставим стену перестроить модель по новой осевой
                } //<=====================
              }
              pDоc->DrawModel(UPDATE_MODELS); // обновим и перерисуем модель модель документа
            }
          }
        }
      }
    }
  }
}

app = System.Runtime.InteropServices.Marshal.GetActiveObject("Sapfir.Application.5.0")

TM_OTHER = 128 # Иные Объекты
TM3_LINE = 1 # отрезок
TM_COLUMN = 12 # Колонна
TM3_ARC = 2# дуга
TMA_C_RAD_OR = 0x200
TM3_CIRC = TM3_ARC|TMA_C_RAD_OR
AppDoc = app.GetActiveDoc()
ActiveStorey = AppDoc.GetActiveStorey()
if not ActiveStorey:
   ActiveStorey = CreateStorey(0, 0)

def CreateColumn(Storey, R, elevation, pos_x, pos_y, pos_z):
   Column = Storey.NewModel(TM_COLUMN)
   param1 = "M_TOPLEVEL"
   #Column.Parameter(param1) = elevation # // возвышение отн.уровня: ноль этажа / высота этажа
   Column.SetPosition(pos_x, pos_y, pos_z)
   ParamObj = List[Object]()
   ParamObj.Add(0)
   ParamObj.Add(0)
   ParamObj.Add(0)
   ParamObj.Add(R)
   ParamObj.Add(0)
   Cont = Column.GetContour()# // Контейнер контуров
   PL = Cont.NewPolyLine()#        // Создадим полилинию внешнего контура
   PL.AddLine(TM3_CIRC, ParamObj)# // Добавляем окружность
   return Column

OUT = CreateColumn(ActiveStorey, 0.3, 0, 0, 0, 0)

import System
from System import Array

App = System.Runtime.InteropServices.Marshal.GetActiveObject("Sapfir.Application") #// получаем приложение Сапфир (текущей установленной версии)

TM_OTHER = 128 
TM3_LINE = 1 
TM_COLUMN = 12 
TM3_ARC = 2
TMA_C_RAD_OR = 0x200
TM3_CIRC = TM3_ARC|TMA_C_RAD_OR

AppDoc = App.GetActiveDoc()                  #// получаем текущий документ
ActiveStorey = AppDoc.GetActiveStorey()      #// получаем текущий этаж
if not ActiveStorey:
   ActiveStorey = CreateStorey(0, 0)

def CreateColumn(Storey, R, elevation, pos_x, pos_y, pos_z):
   Column = Storey.NewModel(TM_COLUMN)        #// создаем колонну на этаже
   Column.SetPosition(pos_x, pos_y, pos_z)    #// позиция колонны в системе координат этажа
   Column.Parameter['M_TOPLEVEL']=elevation;  #// устанавливаем параметр 
   MC=Column.GetMultiContour()                #// У объектов балка и колонна получаем объект сечение. Он хранит готовые контуры, и может генерить параметрические контуры
   Cont = MC.GetContour()                     #// У объекта сечение получаем массив контуров                    
   PL = Cont.NewPolyLine()                    #// создаем в контуре новую полилинию
   Param = Array[object]([0,0,0,R,0])         #// !!! все массивы должны быть 'object'
   PL.AddLine(TM3_CIRC, Param)                #// добавляем в полилинию сегмент 'окружность' с параметрами: центр, радиус, ориентация(0-против частовой стрелки, 1-по)
   return Column

OUT = CreateColumn(ActiveStorey, 0.3, 0.5, 0, 0, 0)