KGAX

Автор Voland1402, 17.05.11, 22:59:01

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

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

Voland1402

Здравствуйте! пытаюсь загрузить документ в компонент KGAX:
KGAX1.AddDocument('J:\temp\1.a3d') ;
KGAX1.ActivateDocument(1);

документ загружается но открывается в отдельном окне компаса. одним словом KGAX становиться пустым а рядом запускается компас и в нем моя сборка. Как сделать так чтоб файл загрузился в компонент? Буду благодарен простому рабочему исходнику(delphi,Компас 10)! Спасибо!

Все работает проверено.
KGAX1.ActivateDocument(1); не надо он итак один, а индексы массивов начинаются с нуля KGAX1.ActivateDocument(0);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, KGAXLib_TLB;

type
  TForm1 = class(TForm)
    KGAX1: TKGAX;
    Button1: TButton;
    procedure ddd(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ddd(Sender: TObject);
begin
  KGAX1.AddDocument('d:\TT.frw');
end;

end.

Voland1402

с фрагментом у меня все хорошо, он открывается в компоненте! а вот если так же открывать сборку или деталь то он открывается в окне компаса!

procedure TForm1.Button1Click(Sender: TObject);
begin
KGAX1.AddDocument('J:\temp\Сборка.a3d');
end;

Как быть?

Посмотрите, что установлено в свойстве или установите значение нужное Вам.

KDocumentType
Предопределенные типы документов.

vt_SheetStandart - 1 - Чертеж. Стандартный формат.

vt_SheetUser - 2 -  Чертеж. Пользовательский формат.

vt_Fragment - 3 - Фрагмент.

vt_Spc - 4 - Спецификация.

vt_3DPart - 5 - Модель.

vt_3DAssembly - 6 - Сборка

vt_TextStandart - 7 - Текстовый документ. Стандартный формат

vt_TextUser - 8 - Текстовый документ. Пользовательский формат

vt_SpcUser - 9 - Спецификация. Пользовательский формат.


Voland1402

В KGAX в свойстве DocumentType у меня стоит 6 - vt_3DAssembly, но все равно сборка или деталь открывается в другом окне а фрагмент в комоненте

Все работает проверено.
procedure TForm1.ddd(Sender: TObject);
begin
  KGAX1.DocumentType:=6;
  KGAX1.AddDocument('d:\Сборка.a3d');
end;

Voland1402

выкладываю исходник и сам exe! помогите разобраться а то горю совсем....файл сборки все детали и сборка на диске С в корне http://ifolder.ru/23602951

Voland1402

Sabahs, можешь мне выслать этот исходник который на скрине, я свою сборку попробую подсунуть

Держи архив