Вопрос : AUTOCAD Билл поколения Materails

Hi друзья,

I am woking в manufacutring компании. Может я сделать для того чтобы перенести список BOM созданный в Autocad к моей базе данных сервера sql. Пожалуйста помогите мне. как могу я восстановить данные от чертежа autocad? class=

Ответ : AUTOCAD Билл поколения Materails

Прикреплено полное Кодий для того чтобы захватить текст на плане таблицы находится в чертеже был вывешен.  Оно находится в acad VBA. Вам будет нужно itterate через блок и получите информацию.

Если вам, то больше помощи препятствовала нам знать.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

Вариант точный
Общественные iDs () как длиной
Функция GetTextForDB ()
    Тусклый groupCode вариант как, dataCode как вариант
    Тусклое gpCode (0) как интежер
    Тусклое dataValue (0) как вариант
    Тусклое msetA как AcadSelectionSet
    Затемните mIi как длиной
    Установите msetA = Aset («TEXTFILE»)
    gpCode (0) = 0
    dataValue (0) = «MTEXT, ТЕКСТ»
    'gpCode (1) = 0
    'dataValue (1) = «ТЕКСТ»
    groupCode = gpCode
    dataCode = dataValue
    AcadApplication.Visible = acTrue
    acActiveViewport ThisDrawing.Regen
    groupCode msetA.SelectOnScreen, dataCode
    msetA SortSSets, 7
    'Здесь будет где вам нужно сделать проверять для всегда вы ищете
    'после этого сделайте вставку/уточнение вещества базы данных….
Закончите функцию
Общественное Sub SortSSets (Aset как AcadSelectionSet, iNCols как длиной)
    Тусклый mI как длиной, mN как длиной, Pta () как двойник, Ptb () как двойник, Swp как длиной, Ptc () как двойник
    Тусклый mK как длиной
    iDs ReDim (0 к Aset.Count - 1)
    Для mI = 0 к Aset.Count - 1
        iDs (mI) = mI
    Затем
    Для mI = 0 к Aset.Count - 2
        Для mN = mI + 1 к Aset.Count - 1
            Pta = Aset (iDs (mI)).InsertionPoint
            Ptb = Aset (iDs (mN)).InsertionPoint
            Если Pta, то (1) < Ptb=""> Ptb (0) после этого
                        Swp = iDs (mI)
                        iDs (mI) = iDs (mN)
                        iDs (mN) = Swp
                    Закончитесь если
                Закончитесь если
            Затем
        Затем
    Затем
Подводная лодка конца

Приватная функция Aset (iSSetName как шнур) как AcadSelectionSet
    Тусклое msetA как AcadSelectionSet
    На резюме ошибки затем
    Установите msetA = ThisDrawing.SelectionSets.Add (iSSetName)
    Если Err.Number <> 0 после этого
        Установите msetA = ThisDrawing.SelectionSets (iSSetName)
        msetA.Delete
        Установите msetA = ThisDrawing.SelectionSets.Add (iSSetName)
        Err.Clear
    Закончитесь если
    На ошибке переход 0
    Установите Aset = msetA
Закончите функцию
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us