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....