VBNet - Форум - AutoCAD и VB.NET

Вопрос: AutoCAD и VB.NET Добавлено: 16.06.10 12:51

Автор вопроса: DEmoN

кто подскажет как указать AutoCAD'овский файл для обработки в VB.NET
Суть: нужно не открывая AutoCAD'овский файл считать из него точки!
подскажите как это сделать плиз!
заранее благодарен!
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| Цитата \| #1	Добавлено: 16.06.10 13:05
	Прочитать на официальном сайте структуру файла, написать парсер. Или гуглить на тему *.DXF Ответить

Номер ответа: 2 Автор ответа: DEmoN Вопросов: 2 Ответов: 2	Профиль \| Цитата \| #2	Добавлено: 16.06.10 13:11
	почему .DXF? автокадовский файл с расширением .DWG автокад 2008 ой! Ответить

Номер ответа: 3 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| Цитата \| #3	Добавлено: 17.06.10 01:47
	Стандартный автокадовский файл = .DXF. Почитай на официальном сайте. У всех файлов структура разная. Я писал парсер на три вида файлов, .dxf, .cp, .geo Хочу добавить, что все файлы написанны по принципу, - "кто как хочет, тот так дрочит" и если ты пытаешся сделать парсер, то поеб... прийдётся не слабо. Я потратил на это около полугода. Ответить

Номер ответа: 4 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| Цитата \| #4	Добавлено: 17.06.10 01:48
	Легче найти готовое решение и подправить его под свои нужды. Ответить

Номер ответа: 5 Автор ответа: DEmoN Вопросов: 2 Ответов: 2	Профиль \| Цитата \| #5	Добавлено: 17.06.10 10:41
	пасиба) а у тебя остались исходники? может скинишь фрагмент где прописанно обращение к автокадовскому файлу? Ответить

Номер ответа: 6 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295	Профиль \| Цитата \| #6	Добавлено: 18.06.10 01:19
	...обращение к автокадовскому файлу? Что это значит? Если тебе надо его прочитать, то вопросов быть не должно - System.IO.Нужный_тебе_метод. ...может скинишь фрагмент... Могу, только тебе это врядли поможет. Private Function ReadDXF(ByVal fileName As String) As IElementHost 'Обьявляю владельца всех графических обьектов, 'которые будут найденны в файле Dim host As New ElementHost 'Читаю файл Dim source() As String = IO.File.ReadAllLines(fileName) Dim l As Integer = source.Length - 1 Dim iStart As Integer = 0 Dim emptyRec As Boolean = True Dim rotation As IElement.Rotations = IElement.Rotations.ClockWise 'Нахожу значение говорящее, в какую сторону поворачиваются углы 'в данном файле Dim tmp As Integer = Array.IndexOf(source, "$ANGDIR", iStart) If tmp <> -1 Then tmp += 2 rotation = CType(Integer.Parse(source(tmp)), IElement.Rotations) End If 'Нахожу первое обозначение графических обьектов 'таковыми могут быть - Arc, Line, PolyLine, Ellipse Circle и тд. iStart = Array.IndexOf(source, "BLOCKS", tmp + 1) Do iStart += 1 If _regexDXF.IsMatch(source(iStart)) Then 'Инициализирую найденный обьект _element = New Element(source, iStart, rotation) host._elementList.Add(_element) If emptyRec Then host._bounds = _element.Bounds emptyRec = False Else host._bounds = RectangleF.Union(host._bounds, _element.Bounds) End If End If Loop While iStart < l Return host End Function Ответить

Страница: 1 |