экспорт данных из штампа чертежа

Автор funt, 20.09.06, 10:46:14

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

funt

необходимо получить текст ячейки основной надписи, по имеющимся примерам реализовал следующее:

var

iKompas : KompasObject;
iDoc : ksDocument2D;
iStamp : ksStamp;
iItemParam : ksTextItemParam;
iItemFont : ksTextItemFont;
nCell : Integer;

.....
.....
.....

iKompas := KompasObject(CreateKompasObject);
if iKompas = nil then
   xit;

iDoc := ksDocument2D(iKompas.ActiveDocument2D);
  if iDoc=nil then
    Exit;
  // Интерфейс 'Штамп'
  iStamp := ksStamp(iDoc.GetStamp);
  // Интерфейс 'Параметры компоненты текстовой строки'
  iItemParam := ksTextItemParam(iKompas.GetParamStruct(ko_TextItemParam));
  iItemParam.Init;
  // Интерфейс 'Параметры шрифта компоненты текстовой строки'
  iItemFont := ksTextItemFont(iItemParam.GetItemFont); 
  if iStamp.ksOpenStamp = 1 then
  begin
    nCell:=5; // ячейка 5
    iStamp.ksColumnNumber(nCell);   
     
    <Указатель>:= iStamp.ksGetStampColumnText(nCell);
   
    iStamp.ksCloseStamp;
    ikompas.ksMessage( <Текст ячейки> );
  end;

Вопрос какой указатель возвращает функция ksGetStampColumnText и как его использовать

PS библиотека пишется на Delphi

Bordes

Цитата: funt от 20.09.06, 10:46:14
...     
    <Указатель>:= iStamp.ksGetStampColumnText(nCell);
   
Вопрос какой указатель возвращает функция ksGetStampColumnText и как его использовать
...

См.
Аналог  ksStamp::ksGetStampColumnText при использовании API экспортных функций - GetStampColumnText.
там есть пример.

funt

а по конкретней будет сложно отвеетить ?

Bordes

Цитата: funt от 22.09.06, 14:36:21
а по конкретней будет сложно отвеетить ?

Укажите конкретно, что не ясно из примера? Там ведь прямо показано, как получить и изменить текст ячейки штампа