CADSoftTools

procedure TForm1.Button2Click(Column: TColumn); Var X,Y,Scale:String; //Переход к объекту SearchPoint: TFPoint; vScale: Double; begin //Переход к объекту TryConvert(Edit1, SearchPoint.X); TryConvert(Edit2, SearchPoint.Y); TryConvert(Edit3, SearchPoint.Z); TryConvert(Edit4, vScale); DNavigator.ShowPo...

Пытаюсь получить имена всех слоёв таким образом: procedure TForm1.EnumLayersCheck; var I: Integer; vLayer: TsgDXFLayer; begin Img := TsgDXFImage(DNavigator.Picture.Graphic); DNavigator.Picture.Graphic := Img; DNavigator.Align := alClient; Img.Converter.Params := @FCADParams; //кол-во слоёв CountLaye...

Здравствуйте!
Возможно ли реализовать подключение своих шрифтов (TTF) и стилей линий для чертежа, как это реализуется?
С Уважением Иван.

Вот сам файл: http://files.mail.ru/66HIKO И ещё вопрос, нет ли такой возможности в компонентах как в автокаде, загрузка чертежа с растровым изображением, то есть есть чертёж в автокаде, я подгружаю растр работаю с ним сохраняю, потом открываю через компонент и вместо чертежа с растром открывается то...

Я имел ввиду информацию о слоях в текущем чертеже, имя, цвет.
И возможна ли загрузка формата svg, т.к. при загрузке файла Delphi выдаёт сообщение об ошибке: 'Uknown picture file extension (.png)' хотя файл формата svg.
С Уважением Иван.

В примере Viewer есть пример отображения слоёв, но реализовать не получается, что необходимо создать чтобы перечислить все слои в чертеже в ListBox или StrinGrid.
Приведите пример пожалуйста.
С Уважением Иван.

Приведите пожалуйста пример вставки блока, в примерах не нашёл.
С Уважением Иван.

Спасибо за ответ. С созданием разобрались, но в примере addentities нет добавления прямоугольника, и возможно ли получение мировых координат чертежа по клику на TSGDrawingNavigator, как описать обработчик события? Есть ли возможность определения попадания (по клику мыши) в определённую область черте...

при компиляции ошибок нет, dxf 004 версии загружает при попытке отрисовки по-прежнему исключение: unit Unit1; interface uses Windows, Messages, SysUtils,ComObj,Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ExtDlgs, Math, XPMan, DBCtrls, ComCtrls,sgConsts, sgFunction, sgD...

при компиляции пишет:[Error] Unit1.pas(58): Field or method identifier expected, на строку: property Img: TsgCADImage read GetCADImage; вот код полностью: unit Unit1; interface uses Windows, Messages, SysUtils,ComObj,Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ExtDlgs,...

для формата dxf autocad 2004, и в приведённом выше коде по добавлению примитива circle выдаёт исключение: я делаю так: procedure TForm1.Button4Click(Sender: TObject); Var Img: TsgCADImage; circle: TsgDXFCircle; begin circle := TsgDXFCircle.Create; circle.Radius := 30; circle.Point := MakeFPoint(110,...

Здравствуйте, разобрались с загрузкой dxf, но при попытке перейти к точке пишет: 'This function don`t work for raster images' вот код: uses Windows, Messages, SysUtils,ComObj,Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ExtDlgs, Math, XPMan, DBCtrls, ComCtrls,sgConsts, ...

Лицензии нет, интересуют выше описанные функции, на .NET не пишем, использовать бесплатно не собираемся. Функция show point не демонстрирует при внесении координат никаких действий. Из множества компонентов в Интернете заинтересовал именно Ваш. Продаёте ли Вы именно версию под Delphi 7 (VCL) и каков...

Спасибо за ответ. Версия CAD Import VCL v5.25, код который я использовал для отрисовки: procedure TForm1.Button3Click(Sender: TObject); var Result:TsgDXFPolyline; X,Y,Z:Extended; begin X:=500;Y:=500;Z:=0; Result:= TsgDXFCircle.Create; TsgDXFCircle(Result).Radius := 100.0; TsgDXFCircle(Result).Point ...

Здравствуйте! Компонент CadImportVCL для Delphi7. Вопрос: 1. Координаты файла dxf из Autocad 2004 открытые в SgImage совпадают? 2. Используя событие MouseMove (или кликнув в определённую точку) могу ли я получить координаты (допустим в Caption формы), и если да то как? 3. Как по введённым координата...