Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Розробка системи автоматизованого проектування

Реферат Розробка системи автоматизованого проектування





ign="justify">; TForm1.Button2Click (Sender: TObject);. Clear;: = strtofloat (LabeledEdit1.Text); ('Помилки введення!', mtWarning, [mbOk], 0);;;. Enabled : = true;


;

TForm1.Button1Click (Sender: TObject);

OD2.Execute thend (OD2.FileName);

D1: = KompasAPI.doc2d;

;



.




Код модуля KompasAPI.pasKompasAPI;

ComObj, OleCtrls, ksTLB, Classes, SysUtils;

TPartVar = RECORD: STRING;: STRING;: REAL; = ARRAY OF TPartVar;

: KompasObject;: ksDocument3D;: THandle;: TStringList;// список імен деталей: TPartVars; D: varname: STRING; value_: REAL);


StartKompas (filename: string): boolean; ka = 'Kompas.Application.5';

// підключення до КОМПАС 3D

Result: = true;

try: = KompasObject (GetActiveOleObject (ka));// якщо вже запущений: = KompasObject (CreateOleObject (ka));// якщо не запущений: = false;;

// отримання посилання на вікно КОМПАС: = kompas.ksGetHWindow;

// робимо вікно КОМПАС видимим

kompas.Visible: = true;

// отримання посилання на поточний документ КОМПАС

Doc: = ksDocument3D (kompas.ActiveDocument3D);

// якщо такий документ є ...

if Assigned (Doc) then

// то закриваємо его.close;

// створюємо новий документ ...: = ksDocument3D (kompas.Document3D);

// і завантажуємо в нього збірку з ім'ям filename

Doc.Open (Trim (filename), False);

// активуємо API.ActivateControllerAPI; StartKompas2d (filename: string): boolean;

// var doc2d: ksDocument2D; ka = 'Kompas.Application.5';

// підключення до КОМПАС 3D

Result: = true;

try: = KompasObject (GetActiveOleObject (ka));// якщо вже запущений: = KompasObject (CreateOleObject (ka));// якщо не запущений: = false;;

// отримання посилання на вікно КОМПАС: = kompas.ksGetHWindow;

// робимо вікно КОМПАС видимим

kompas.Visible: = true;

// отримання посилання на поточний документ КОМПАС

Doc2d: = ksDocument2D (kompas.ActiveDocument2D);

// якщо такий документ є ...

if Assigned (Doc2d) then

// то закриваємо егоd.ksCloseDocument;

// створюємо новий документ ...


d: = ksDocument2D (Kompas.Document2D); d....


Назад | сторінка 4 з 6 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Поняття: документ, управлінський документ
  • Реферат на тему: Основи проектування в системі Компас 3D
  • Реферат на тему: Проектування підвіски у програмах компас SIMNON
  • Реферат на тему: Розробка тривимірної моделі &Роз'єм високочастотний& засобами САПР Комп ...
  • Реферат на тему: Система КОМПАС-ГРАФІК