[Bart]

Подскажите как реализовать следующую задачу: ...

Необходимо создать программу, которая при нажатии одной кнопки будет создавать набор чертежей.
Как исходные данные будет спецификация в excel. Там указываются компоненты, которые нужно разместить и и их количество. Состав компонентов от изделия к изделию будет разным. Но все возможные компоненты, входящие в состав изделия мы знаем.
Т.е. мы имеем кучу блоков AutoCAD, которые нужно разместить на чертежах в соответствии с тем, что написано в спецификации и по некоторым определенным правилам.

Мне говорят, что бы я делал методом перебора. Открываем файл excel и начинаем поиск элементов.
Например: у нас есть блок1, блок2, блок3. Открываем файл спецификации и ищем блок1, если нашли, то вставляем его в чертеж, если не нашли, то ищем блок2 и т.д. И таких блоков может быть несколько сотен.

[Дима_]

А что тебе подсказать-то?

[Bart]

Как именно это реализовывать. Перебирать все возможные варианты, чтобы найти то, что есть в спецификации или это как-то еще можно сделать?

[Admin]

#youtube_inline_div

Bart, у тебя вирус на машине! Что это за беда в каждом сообщении?

[Bart]

Разобрался.
У меня стоит гризманки. Есть скрипт Youtube inline watcher. Вот он что-то как-то на данном форуме подглючивает.

[Дима_]

Делается БД - в простом случае экселевская таблица, в ней прописываються имена блоков и все возможные атрибуты (координаты углы - если блоки динамические - то их атрибуты и т.д.) Ну и все собственно - далее програмка читает эксель и вставляет блоки.

[Bart]

Сообщение от Дима_ Делается БД - в простом случае экселевская таблица, в ней прописываються имена блоков...

Вся сложность в том, что экселевскую таблицу будет делать пользователь, который вообще не в курсе про блоки или координаты. Можно, сделать эту таблицу с блоками и координатами, но тогда придется в нее забивать все элементы, которые могут быть. А это уже не удобно для работы пользователя.
Или я чего-то не понимаю.

[Дима_]

Мы по моему на разных языках говорим - чтоб автокад мог создать что-либо "нажатием одной кнопки" ему нужны исходные данные - та самая спецификация, в каком виде ее будет вбивать пользователь решать только Вам - нужно разработать формат, который будет понятен пользователю и который компьютер может расшифровать и перевсети в блоки и их координаты. Если формат Вы сами можете представить и понимаете что нужно - постарайтесь его описать, если нет, а задачу решить нужно - то могу посоветывать только раздел "поиск исполнителей".

[Bart]

Вот весь вопрос как раз и состоит в том, что как перейти от пользовательской спецификации к тому, с чем автокад сможет работать.
Нужен метод.
Или каким-то образом сопоставлять исходную таблицу с эталонной, в которой прописаны координаты и прочее (все, что нужно для автокада) или же прописывать все необходимое в теле программы, основываясь на исходной спецификации.

[Дима_]

Я думаю правильней всю конвертацию проводить в теле программы

[Олег (jr.)]

Для начала нужно научится читать данные
Небольшой пример (из 2-х столбцов первого листа)
Измени имена файлов

Код:

[Выделить все]

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.Office.Interop.Excel
Imports Excel = Microsoft.Office.Interop.Excel

Imports System.Data
Imports System.Data.OleDb

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Imports acadApp = Autodesk.AutoCAD.ApplicationServices.Application

<Assembly: CommandClass(GetType(ReadExcelADO.ReadTable))>

Namespace ReadExcelADO
	Public Class ReadTable
		<CommandMethod("RX")> _
		Public Shared Sub ReadDataTable()
			Dim doc As Document = acadApp.DocumentManager.MdiActiveDocument
			Dim ed As Editor = doc.Editor
			Dim Path As String = "c:\ExcelTest.xls"
			' initialize the Excel Application class
			Dim app As Excel.ApplicationClass = New ApplicationClass()
			' create the workbook object by opening the excel file.
			Dim workBook As Excel.Workbook = app.Workbooks.Open(Path, 0, True, 5, "", "", _
				True, Excel.XlPlatform.xlWindows, vbTab, False, False, 0, _
				True, 1, 0)
			' get the active worksheet using sheet name or active sheet
			'Excel.Worksheet workSheet = (Excel.Worksheet)workBook.ActiveSheet;
			' or get worksheet by index
			Dim workSheet As Excel.Worksheet = DirectCast(workBook.Worksheets.get_Item(1), Excel.Worksheet)
			Try
				Dim rang As Excel.Range = DirectCast(workSheet.UsedRange, Excel.Range)
				Dim rows As Integer = rang.Rows.Count
				Dim i As Integer = 1
				While i < rows + 1
					Dim blockname As String = (DirectCast(workSheet.Cells(i, 1), Excel.Range)).Value2.ToString()
					Dim tagname As String = (DirectCast(workSheet.Cells(i, 2), Excel.Range)).Value2.ToString()


					ed.WriteMessage(vbLf & "First Column : {0}, Second column: {1} ", blockname, tagname)
					System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
				End While
				workBook.Close(False, Path, Nothing)
				rang = Nothing
				workSheet = Nothing
				workBook = Nothing
				app.Quit()
				System.Runtime.InteropServices.Marshal.FinalReleaseComObject(app)
			Catch ex As System.Exception

				ed.WriteMessage(vbLf & "{0}", ex.StackTrace)
			End Try
		End Sub
		'
		<CommandMethod("ADO")> _
		Public Shared Sub ReadXlWithAdo()
			Dim doc As Document = acadApp.DocumentManager.MdiActiveDocument
			Dim ed As Editor = doc.Editor

			Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + "c:\ExcelTest.xls;" + "Extended Properties=""Excel 8.0;HDR=YES"""
			' create connection
			Dim conn As New OleDbConnection(strcon)
			Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$A1:B]", conn)
			Dim ds As New DataSet()
			' fill dataset
			da.Fill(ds)
			'Show results in the command line (1st and 2nd column from worksheet)
			ed.WriteMessage(vbLf & "{0}" & vbLf, "================Excel Table================")
			For Each dr As DataRow In ds.Tables(0).Rows

				ed.WriteMessage(vbLf & "First Column : {0}, Second column: {1}", dr(0), dr(1))
			Next
			conn.Close()
			ed.WriteMessage(vbLf & "{0}" & vbLf, "================MDB Table================")
			strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + "c:\sample.mdb"
			Dim dt As System.Data.DataTable = ReadRecords(strcon, "tblEmployee")
			'tblEmployee-имя таблицы
			For Each dw As DataRow In dt.Rows

				ed.WriteMessage(vbLf & "Second Column : {0}, Third column: {1}", dw(1), dw(2))
			Next

		End Sub

		Public Shared Function ReadRecords(strconn As [String], tablename As [String]) As System.Data.DataTable
			Dim conn As New OleDbConnection(strconn)
			Dim cmdGetRecords As New OleDbCommand()
			Dim strquery As String = "SELECT * FROM " + tablename
			Dim da As New OleDbDataAdapter(strquery, conn)
			conn.Open()
			Dim ds As New DataSet()
			da.Fill(ds)
			conn.Close()
			If ds <> Nothing Then
				Return ds.Tables(0)
			Else
				Return Nothing
			End If
		End Function
	End Class
End Namespaceх

~'J'~

[Bart]

Олег (jr.)
спасибо. Опробую. был в отпуске, так что пока не успел.
Буду думать что и как делать.

Dim workSheet As Excel.Worksheet = DirectCast(workBook.Worksheets.get_Item(1), Excel.Worksheet)

Пишет, что:
"get_Item" не является членом "Microsoft.Office.Interop.Excel.Sheets"

[Олег (jr.)]

Сообщение от Bart Олег (jr.) спасибо. Опробую. был в отпуске, так что пока не успел. Буду думать что и как делать.

Проверь ссылки на библиотеки
см. рис.

~'J'~

[Bart]

Откуда брать ссылку на excel и office?
У меня добавлена Microsoft.Office.Interop.Excel. Это не то?

И вот с этим я не справился пока
If ds <> Nothing Then

Оператор "<>" для типов "System.Data.DataSet" и "System.Data.DataSet" не определен.

[Олег (jr.)]

Сообщение от Bart Откуда брать ссылку на excel и office? У меня добавлена Microsoft.Office.Interop.Excel. Это не то? И вот с этим я не справился пока If ds <> Nothing Then Оператор "<>" для типов "System.Data.DataSet" и "System.Data.DataSet" не определен.

Ошибка машинного конвертора кода (в реальности
код написан на C#)
Нужно:
If Not ds Is Nothing Then

Насчет References:
На вкладке COM:
Microsof Excel 11.0 Object Library
Microsoft Office 11.0 Object Library

Переделал пример на VB.NET - на моей машине работает
(A2008, Visual Studio2005)

~'J'~

[Bart]

Ага. Все дело было в том, что
workBook.Worksheets.get_Item(1) надо было заменить на

workBook.Worksheets.Item(1).

У меня Visual Studio2008 и office 2007, так что я поправил еще ряд ошибок. Но еще кое-что осталось, так что пока прога не работает. Видимо, с VS2005 к VS2008 произошли изменения и данные методы немного не пашут.
Например вот тут:
Dim workBook As Excel.Workbook = app.Workbooks.Open(Path, 0, True, 5, "", "", _
True, Excel.XlPlatform.xlWindows, vbTab, False, False, 0, _
True, 1, 0)

Пишет, что старый метод.
Причина найдена - баг!
You run an English version of Excel. However, the regional settings for the computer are configured for a non-English language.
http://support.microsoft.com/default...b;EN-US;320369

[Bart]

Олег (jr.), спасибо.
Со всем разобрался.
Еще нет примерчиков по работе с данными?

[Олег (jr.)]

Сообщение от Bart Олег (jr.), спасибо. Со всем разобрался. Еще нет примерчиков по работе с данными?

Я особо не занимался - а что конкретно нужно?
Как бы в продолжение темы

~'J'~

[Bart]

А как, используя ADO, осуществлять поиск и выбор нужных значений в eсxel таблице?
Например: находим строку с определенным значением (столбец 1), далее присваиваем переменной значение следующего столбца (столбец 2) в этой строке.

[Олег (jr.)]

Сообщение от Bart А как, используя ADO, осуществлять поиск и выбор нужных значений в eсxel таблице? Например: находим строку с определенным значением (столбец 1), далее присваиваем переменной значение следующего столбца (столбец 2) в этой строке.

Извини, забыл про тему
Я не в форме пока на несколько дней
Поправлюсь - продолжим
Тут несколько вариантов: через SQL запросы в
таблице либо методом Find самого Эксель
Примеров готовых нет

~'J'~

[Bart]

Поправляйся.
Про варианты я так и понял. Сижу-читаю msdn, пытаюсь что-либо найти.

[Олег (jr.)]

Сообщение от Bart Поправляйся. Про варианты я так и понял. Сижу-читаю msdn, пытаюсь что-либо найти.

Тогда глянь сюда
http://msdn.microsoft.com/en-gb/libr...ffice.11).aspx
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

~'J'~

[Олег (jr.)]

Сообщение от Bart Поправляйся. Про варианты я так и понял. Сижу-читаю msdn, пытаюсь что-либо найти.

Я добавил функцию поиска строки таблицы по
указанному значению в определенном столбце
Посмотри, может пригодится
Есть еще минимум 2-3 метода (например поиск
методом Find в DataView для полученной DataTable и тд)
Успехов

~'J'~

[Bart]

Этот поиск вот тут?
da.Fill(ds, "myTable")

или еще где-то? Что-то я больше никаких изменений не нашел.

[Олег (jr.)]

Сообщение от Bart Этот поиск вот тут? da.Fill(ds, "myTable") или еще где-то? Что-то я больше никаких изменений не нашел.

Нет, это выражение означает что DataAdapter (da) заполняет объект
DataSet (ds) данными в соответствии с запросом SQL
При этом таблице полученных данных присваивается имя myTable
(второй аргумент "myTable" можно опустить)

А поиск производится с помощью локальной функции ReadRecord
(см. в коде)

Код:

[Выделить все]

 ' Block Name - название столбца в таблице Эксель по которому
            ' идет поиск на соответствие:
            Dim ndt As System.Data.DataTable = ReadRecord(strcon, "[Sheet1$A1:B]", "Block Name", value)
            Dim row As System.Data.DataRow = ndt.Rows(0)
            If Not row Is Nothing Then
                Dim data As Object() = row.ItemArray
                ed.WriteMessage(vbLf & "{0}" & vbLf, "================ Search value ================")
                ed.WriteMessage(vbLf & "Seacrh for : {0}, Found value in the second column: {1}", value, data(1)) 'data(1) - значение во втором столбце
            Else
                ed.WriteMessage(vbLf & "Item with value : {0} does not exist", value)
            End If

~'J'~

[Bart]

Сделал вот так пока. Код поправлен для работы в VS2008.
Что я делаю: у меня есть спецификация (sheet1) и база (sheet2).
Я провожу выборку данных из базы по данным из спецификации и получаю нужные мне для построения значения, а также с учетом параметра (12), для выбора того, что мне нужно для построения на одном листе. Все это я выделил красным. Что делать с этим дальше я пока не додумал, в процессе.

Код:

[Выделить все]

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.Office.Interop.Excel
Imports Excel = Microsoft.Office.Interop.Excel

Imports System.Data
Imports System.Data.OleDb

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Imports acadAppl = Autodesk.AutoCAD.ApplicationServices.Application
Public Class ReadTable
    <CommandMethod("ADO")> _
    Public Shared Sub ReadXlWithAdo()
        Dim doc As Document = acadAppl.DocumentManager.MdiActiveDocument
        Dim ed As Editor = doc.Editor


        Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + "c:\Spec.xlsx;" + "Extended Properties=""Excel 8.0;HDR=YES""" 'заголовок есть
        ' create connection
        Dim conn As New System.Data.OleDb.OleDbConnection(strcon)
        Dim da As New OleDbDataAdapter("SELECT [Sheet1$].ID as IDN, [Sheet1$].Quant as Quant, [Sheet2$].file as file, [Sheet2$].name as name, [Sheet2$].dir as dir, [Sheet2$].ground as ground, [Sheet2$].groundN as groundN, [Sheet2$].Fr as Fr, [Sheet2$].t1 as t1, [Sheet2$].t2 as t2, [Sheet2$].draw as draw FROM [Sheet1$], [sheet2$] where [Sheet1$].ID=[Sheet2$].ID and [Sheet2$].draw = '12'", conn)

        Dim ds As New DataSet()
        da.Fill(ds)
        ' fill dataset
        'Show results in the command line (1st and 2nd column from worksheet)
        ed.WriteMessage(vbLf & "{0}" & vbLf, "================Excel Table================")
        For Each dr As DataRow In ds.Tables(0).Rows

            ed.WriteMessage(vbLf & "First Column : {0}, Second column: {1}, Third column: {2}", dr("File"), dr("name"), dr("dir"))
            If Not IsDBNull(dr("file")) Then
                BFile = strFilePath & CStr(dr("File"))
            End If
            If Not IsDBNull(dr("name")) Then
                BName = CStr(dr("name"))
            End If
            If Not IsDBNull(dr("dir")) Then
                drc = strFilePath & CStr(dr("dir"))
            End If
            If Not IsDBNull(dr("ground")) Then
                gr = strFilePath & CStr(dr("ground"))
            End If
            If Not IsDBNull(dr("groundN")) Then
                grN = CStr(dr("groundN"))
            End If
            If Not IsDBNull(dr("Fr")) Then
                from = dr("Fr")
            End If
            If Not IsDBNull(dr("t1")) Then
                to1 = CStr(dr("t1"))
            End If
            If Not IsDBNull(dr("t2")) Then
                to2 = CStr(dr("t2"))
            End If
        Next
        conn.Close()
        ed.WriteMessage(vbLf & "{0}" & vbLf, "================MDB Table================")
        strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + "c:\Cabs.mdb"
        Dim dt As System.Data.DataTable = ReadRecords(strcon, "BOM")
        'tblEmployee-имя таблицы
        For Each dw As DataRow In dt.Rows

            ed.WriteMessage(vbLf & "Second Column : {0}, Third column: {1}, 4: {2}, 5: {3}, 6: {4}", dw(1), dw(2), dw(3), dw(4), dw(5))
        Next

    End Sub

    Public Shared Function ReadRecords(ByVal strconn As [String], ByVal tablename As [String]) As System.Data.DataTable
        Dim conn As New System.Data.OleDb.OleDbConnection(strconn)
        Dim cmdGetRecords As New OleDbCommand()
        Dim strquery As String = "SELECT * FROM " + tablename
        Dim da As New OleDbDataAdapter(strquery, conn)
        conn.Open()
        Dim ds As New DataSet()
        da.Fill(ds)
        conn.Close()
        If Not ds Is Nothing Then
            Return ds.Tables(0)
        Else
            Return Nothing
        End If
    End Function

End Class

Теперь вопрос в следующем: сейчас база и спецификация у меня в одном файле. Теперь нужно найти как мне работать с базой и спецификацией, которые лежат в разных файлах. Как сделать это я пока не знаю, но как-то можно. Вот тут нужна помощь.

Так. Чтение данных из разных файлов с помощью товарища я сделал. Если кому надо, то поделюсь.