Pergunta : AUTOCAD Bill da geração de Materails

Olá! amigos,

I am que woking em uma companhia manufacutring. O que pode mim fazer para transferir a lista de BOM criada em Autocad a minha base de dados de usuário do sql. Ajudar-me por favor. como posso eu recuperar dados do desenho do autocad? class= do

Resposta : AUTOCAD Bill da geração de Materails

É unido o código cheio para capturar o texto na disposição da tabela que está no desenho que foi afixado.  Está no acad VBA. Você precisará o itterate com a disposição e começ a informação.

Se você precisa mais ajuda deixou-nos saber.
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:

Opção explícita
iDs públicos () como por muito tempo
Função GetTextForDB ()
    Do groupCode variação não ofuscante tão, dataCode quanto a variação
    gpCode não ofuscante (0) como o inteiro
    dataValue não ofuscante (0) como a variação
    msetA não ofuscante como AcadSelectionSet
    Escurecer mIi como por muito tempo
    Ajustar o msetA = o Aset (o “TEXTFILE”)
    gpCode (0) = 0
    dataValue (0) = “MTEXT, TEXTO”
    'gpCode (1) = 0
    'dataValue (1) = “TEXTO”
    groupCode = gpCode
    dataCode = dataValue
    AcadApplication.Visible = acTrue
    acActiveViewport de ThisDrawing.Regen
    groupCode de msetA.SelectOnScreen, dataCode
    msetA de SortSSets, 7
    'É aqui onde você precisa de fazer a verificação para ver se há o que nunca você está procurando
    'fazer então a inserção/atualização do material da base de dados….
Terminar a função
SortSSets secundário público (Aset como AcadSelectionSet, iNCols como por muito tempo)
    MI não ofuscante como por muito tempo, manganês como por muito tempo, Pta () como o dobro, Ptb () como o dobro, Swp como por muito tempo, Ptc () como o dobro
    mK não ofuscante como por muito tempo
    iDs de ReDim (0 a Aset.Count - 1)
    Para MI = 0 a Aset.Count - 1
        iDs (MI) = MI
    Em seguida
    Para MI = 0 a Aset.Count - 2
        Para manganês = MI + 1 a Aset.Count - 1
            Pta = Aset (iDs (MI)).InsertionPoint
            Ptb = Aset (iDs (manganês)).InsertionPoint
            Se Pta (1) < Ptb=""> Ptb (0) então
                        Swp = iDs (MI)
                        iDs (MI) = iDs (manganês)
                        iDs (manganês) = Swp
                    Terminar se
                Terminar se
            Em seguida
        Em seguida
    Em seguida
Submarino da extremidade

Função confidencial Aset (iSSetName como a corda) como AcadSelectionSet
    msetA não ofuscante como AcadSelectionSet
    No resumo do erro em seguida
    Ajustar o msetA = o ThisDrawing.SelectionSets.Add (o iSSetName)
    Se Err.Number <> 0 então
        Ajustar o msetA = o ThisDrawing.SelectionSets (o iSSetName)
        msetA.Delete
        Ajusta o msetA = o ThisDrawing.SelectionSets.Add (o iSSetName)
        Err.Clear
    Terminam se
    No erro 0 empreendedores
    Ajustar Aset = msetA
Terminar a função
Outras soluções  
 
programming4us programming4us