Программирование для начинающих

[HaHa]

В интернете скачал методичку по программированию в Компас 3D, делаю согласно методички, форма появляется, а при клике на рисовать отрезок ничего не рисует, подскажите, где я не правильно делаю
{$WARN SYMBOL_PLATFORM OFF}
library KompasRTW;

{$E rtw}
{$R *.res}

uses
  SysUtils, Classes, ksTLB,
  UMain   in 'UMain.pas',
  former  in 'former.pas' {MainForm};

{ЭКСПОРТНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ}
exports
  LibraryName   name 'LIBRARYNAME',
  LibraryId     name 'LIBRARYID',
  LibraryEntry  name 'LIBRARYENTRY';
begin

end.
-------------------------------
{$WARN SYMBOL_PLATFORM OFF}
unit UMain;

interface

uses Windows, SysUtils, Forms, LDefin2D, ksConstTLB, ksAuto, ksTLB, former;

{ЭКСПОРТНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ}
procedure LIBRARYENTRY(command: Word);  Pascal;
function LIBRARYNAME: PChar;            Pascal;
function LIBRARYID: Cardinal;           Pascal;
{ИСПОЛЬЗУЕМЫЕ ПРОЦЕДУРЫ}
procedure RunForm;

var
    Kompas: KompasObject;
    iDocument2D: ksDocument2D;

implementation

function LIBRARYNAME: PChar;    Pascal;
begin
  Result:= 'Заготовка для создания библиотеки Компас-3D';
end;

function LIBRARYID: Cardinal; Pascal;
begin
Result:= 100;
end;

procedure LIBRARYENTRY(command: Word); Pascal;
begin
  Kompas:= KompasObject(CreateKompasObject);
  if Kompas <> nil then
  begin
    iDocument2D:= ksDocument2D(Kompas.ActiveDocument2D());
    if iDocument2D = nil then
    Kompas.ksMessage('Текущий документ не является чертежом или фрагментом')
  else
    begin
      //СВОЯ ПРОЦЕДУРА
      RunForm;
      Kompas.ksMessage('Работа библиотеки завершена');
    end;
    //ОСВОБОЖДЕНИЕ ПАМЯТИ
    iDocument2D:= nil;
    end;
    Kompas:= nil;
end;

//ПРОЦЕДУРА ЗАПУСКА ФОРМЫ
procedure RunForm;
var
    former: TMainForm; //ССЫЛКА НА ФОРМУ
begin
  Application.Handle:= Kompas.ksGetHWindow;
//ЗАКРЫВАЕМ ДОСТУП К КОМПАСУ
  Kompas.ksEnableTaskAccess(0);
//СОЗДАЕМ ФОРМУ
  former:= TMainForm.Create(Forms.Application);
//ПОКАЗЫВАЕМ ФОРМУ
  former.ShowModal;
//ОТКРЫВАЕМ ДОСТУП К КОМПАСУ
  Kompas.ksEnableTaskAccess(1);
//ОТКЛЮЧАЕМ ФОРМУ ОТ КОМПАСА
  Application.Handle:= 0;
end;
end.
------------------------------------------------------------------------
{$WARN SYMBOL_PLATFORM OFF}
unit former;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LDefin2D, ksConstTLB, ksAuto, ksTLB;

type
  TMainForm = class(TForm)
    Edit_x1: TEdit;
    Edit_y1: TEdit;
    Edit_x2: TEdit;
    Edit_y2: TEdit;
    Button_Draw_Line: TButton;
    Button_Ok: TButton;
    GroupBox_Draw_Line: TGroupBox;
    GroupBox1: TGroupBox;
    Button_Draw_Circle: TButton;
    procedure Button_LineDrawClick(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UMain;

{$R *.dfm}

procedure TMainForm.Button_LineDrawClick(Sender: TObject);
begin
//РИСУЕМ ОТРЕЗОК
  iDocument2D.ksLineSeg(StrToFloat(Edit_x1.Text), StrToFloat(Edit_y1.Text),
  StrToFloat(Edit_x2.Text), StrToFloat(Edit_y2.Text), 1);
end;
end.

[Sabahs]

А фрагмент или чертеж открыт, в момент нажатия на кнопку?

[HaHa]

да открыт, т.е если чертеж или фрагмент появляется форма, иначе выдает что 'Документ не является чертежом или фрагментом', при появлении формы,я ввожу координаты для рисования отрезка,жму рисовать отрезок, ничего не рисуется..

[Sabahs]

Тогда должен рисовать, можете для проверки здесь
iDocument2D.ksLineSeg(StrToFloat(Edit_x1.Text), StrToFloat(Edit_y1.Text), StrToFloat(Edit_x2.Text), StrToFloatEdit_y2.Text), 1); поставить числовые значения например  iDocument2D.ksLineSeg(0,0,100,100,1);, если нарисует значит проблема в функциях перевода строки в число, если не нарисует значит теряется указатель на документ. Всё это при условии, что обработчик события отрабатывается.

[HaHa]

Не рисуется...

[HaHa]

 :)Рисуется, спасибо