Search found 9 matches

by grigorij_evd
28 Feb 2013, 15:40
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Здравствуйте, возможно ли изменить порядок слоёв, например: 0 транзисторы 1 диоды 2 мк 3 конденсаторы 4 кварц на 0 транзисторы 3 конденсаторы 1 диоды 4 кварц 2 мк чтобы например слой "конденсаторы" был поверх остальных как в автокаде - порядок прорисовки->поверх остальных и как это реализовать? Григ...
by grigorij_evd
26 Feb 2013, 09:08
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Александр спасибо за ответ, но необходимо именно перемещать вершину примитива (полилинии) мышью после её выделения.
Григорий.
by grigorij_evd
22 Feb 2013, 14:00
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Здравствуйте, каким образом можно у выделенного примитива перемещать отдельную вершину
>>Вы писали:
Например, список вершин полилинии содержится в TsgDXFPolyline.Vertexes. Описание поддерживаемых примитивов и их свойств приведено в документации.
>>
в документации примера не нашёл.
Григорий
by grigorij_evd
18 Feb 2013, 23:31
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

procedure TForm1.AddPolyline; var vDXFPolyline: TsgDXFPolyline; Vertex: TsgDXFVertex; I:Integer; begin for I:=0 to StringGrid1.RowCount-1 do begin vDXFPolyline := TsgDXFPolyline.Create; Vertex := TsgDXFVertex.Create; Vertex.Point := MakeFPoint(StrToFloat(StringGrid1.Cells[1,0]),StrToFloat(StringGrid...
by grigorij_evd
18 Feb 2013, 13:34
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Здравствуйте Александр! По поводу вставки Вы приводили код: var xref: TsgDWGImage; begin if not (DNavigator.Picture.Graphic is TsgCADImage) then Exit; Img := TsgCADImage(DNavigator.Picture.Graphic); xref := TsgDWGImage.Create(); xref.IsWithoutBorder := true; xref.LoadFromFile('colors.dwg');//это я т...
by grigorij_evd
23 Jan 2013, 15:51
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Хочу попробовать функцию выделение объекта(ов). При загрузке файла ошибка, вот код: private FManager: TsgSelectionManager; public FBlockLibrary:TsgBlockLibrary; procedure OnSelectionChange; procedure TForm1.OnSelectionChange; begin MessageBox(Self.Handle, 'Selection is changed!!!', 'Information', 0)...
by grigorij_evd
23 Jan 2013, 13:43
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Если есть возможность, вышлите бета версию, и вопрос:
вставка блока из файла dxf/dwg в чертёж dwg или dxf, как в автокаде из внешнего файла и его реализация на примере.
Григорий.
by grigorij_evd
22 Jan 2013, 00:26
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Re: Отрисовка мышью

Благодарю Вас за исчерпывающий ответ! Но появился основной вопрос. Есть ли возможность сохранения нанесённого примитива в файл dwg-dxf в процессе работы, интересует сама реализация и его "сложность" или "простота" (на примере приведённого вами кода по отрисовке полилинии). И нужен ли компонент CADEx...
by grigorij_evd
27 Dec 2012, 19:29
Forum: Import
Topic: Отрисовка мышью
Replies: 17
Views: 103062

Отрисовка мышью

Здравствуйте! Возможности компонента CadImportVcl очень обширны (фактически Autocad), меня интересует возможность отрисовки примитивов в векторе, посмотрев демо проекты и на форуме я ненашёл примера отрисовки с помощью мыши например полилинии. Сама процедура есть: procedure TForm1.AddPolyline; var v...