Search found 9 matches
- 28 Feb 2013, 15:40
- Forum: Import
- Topic: Отрисовка мышью
- Replies: 17
- Views: 103062
Re: Отрисовка мышью
Здравствуйте, возможно ли изменить порядок слоёв, например: 0 транзисторы 1 диоды 2 мк 3 конденсаторы 4 кварц на 0 транзисторы 3 конденсаторы 1 диоды 4 кварц 2 мк чтобы например слой "конденсаторы" был поверх остальных как в автокаде - порядок прорисовки->поверх остальных и как это реализовать? Григ...
- 26 Feb 2013, 09:08
- Forum: Import
- Topic: Отрисовка мышью
- Replies: 17
- Views: 103062
Re: Отрисовка мышью
Александр спасибо за ответ, но необходимо именно перемещать вершину примитива (полилинии) мышью после её выделения.
Григорий.
Григорий.
- 22 Feb 2013, 14:00
- Forum: Import
- Topic: Отрисовка мышью
- Replies: 17
- Views: 103062
Re: Отрисовка мышью
Здравствуйте, каким образом можно у выделенного примитива перемещать отдельную вершину
>>Вы писали:
Например, список вершин полилинии содержится в TsgDXFPolyline.Vertexes. Описание поддерживаемых примитивов и их свойств приведено в документации.
>>
в документации примера не нашёл.
Григорий
>>Вы писали:
Например, список вершин полилинии содержится в TsgDXFPolyline.Vertexes. Описание поддерживаемых примитивов и их свойств приведено в документации.
>>
в документации примера не нашёл.
Григорий
- 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...
- 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');//это я т...
- 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)...
- 23 Jan 2013, 13:43
- Forum: Import
- Topic: Отрисовка мышью
- Replies: 17
- Views: 103062
Re: Отрисовка мышью
Если есть возможность, вышлите бета версию, и вопрос:
вставка блока из файла dxf/dwg в чертёж dwg или dxf, как в автокаде из внешнего файла и его реализация на примере.
Григорий.
вставка блока из файла dxf/dwg в чертёж dwg или dxf, как в автокаде из внешнего файла и его реализация на примере.
Григорий.
- 22 Jan 2013, 00:26
- Forum: Import
- Topic: Отрисовка мышью
- Replies: 17
- Views: 103062
Re: Отрисовка мышью
Благодарю Вас за исчерпывающий ответ! Но появился основной вопрос. Есть ли возможность сохранения нанесённого примитива в файл dwg-dxf в процессе работы, интересует сама реализация и его "сложность" или "простота" (на примере приведённого вами кода по отрисовке полилинии). И нужен ли компонент CADEx...
- 27 Dec 2012, 19:29
- Forum: Import
- Topic: Отрисовка мышью
- Replies: 17
- Views: 103062
Отрисовка мышью
Здравствуйте! Возможности компонента CadImportVcl очень обширны (фактически Autocad), меня интересует возможность отрисовки примитивов в векторе, посмотрев демо проекты и на форуме я ненашёл примера отрисовки с помощью мыши например полилинии. Сама процедура есть: procedure TForm1.AddPolyline; var v...