Вытаскиваем массу из чертежа

Автор shilov, 07.03.13, 09:02:47

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

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

shilov

Какой командой можно вытащить массу из штампа чертежа?

#1
var
Stamp:IStamp;
StampText:IText;
Document:IKompasDocument;
LayoutSheets:ILayoutSheets;
LayoutSheet:ILayoutSheet;
...
LayoutSheets:=Document.LayoutSheets;
LayoutSheet:=LayoutSheets.Item[0];
Stamp:=LayoutSheet.Stamp;
StampText:=Stamp.Text[5];
StampText.Str - строка с массой.
+ Благодарностей: 2

Дмитрий Геннадьевич

#2
что я делаю не так?
если раскомментировать последние строки внутри цикла, получаю ошибку при выполнении (компилится норм)

var
  it:byte;   
  LayoutSheets:ILayoutSheets;
  LayoutSheet:ILayoutSheet;
  Stamp:IStamp;
  ESKD_Name, ESKD_Number : IText;
begin
Documents := newKompasAPI.Documents;     
for it:=0 to (Documents.Count-1) do
  begin
    Document:=Documents.Item [it];
    LayoutSheets:=Document.LayoutSheets;   
    LayoutSheet:=LayoutSheets.Item[0];     
    Stamp:=LayoutSheet.Stamp;             
    //ESKD_Name:=Stamp.Text[1];               //считываем поле наименования чертежа (графа 1)
    //ESKD_Number:=Stamp.Text[2];             //считываем поле номера чертежа  (графа 2)
.....
.....

  end;
end;

Дмитрий Геннадьевич

Однако обнаружил, что в 14SP2 выдает ошибку, а в 15.1 работает нормально.
В более поздних не проверял...