Questione : AUTOCAD Bill della generazione di Materails

Ciao amici,

I che woking in un'azienda manufacutring. Che cosa può io fare per trasferire la lista di BOM generata in Autocad alla mia base di dati di assistente di sql. Aiutarlo prego. come posso richiamare i dati dall'illustrazione del autocad? class= del

Risposta : AUTOCAD Bill della generazione di Materails

È attaccato il codice completo per bloccare il testo sulla disposizione della tabella che è nell'illustrazione che è stata inviata.  È nel acad VBA. Avrete bisogno del itterate con l'allineamento ed otterrete le informazioni.

Se avete bisogno di più aiuto li ha lasciati sapere.
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:

Opzione esplicita
iDs pubblici () come lungamente
Funzione GetTextForDB ()
    Del groupCode variante fioca così, dataCode quanto variante
    gpCode fioco (0) come numero intero
    dataValue fioco (0) come variante
    msetA fioco come AcadSelectionSet
    Oscurare mIi come lungamente
    Regolare il msetA = Aset (“TEXTFILE„)
    gpCode (0) = 0
    dataValue (0) = “MTEXT, TESTO„
    'gpCode (1) = 0
    'dataValue (1) = “TESTO„
    groupCode = gpCode
    dataCode = dataValue
    AcadApplication.Visible = acTrue
    acActiveViewport di ThisDrawing.Regen
    groupCode di msetA.SelectOnScreen, dataCode
    msetA di SortSSets, 7
    'Qui è dove dovete fare controllare per vedere se c'è che cosa state cercando mai
    'allora fare l'inserto/aggiornamento del roba della base di dati….
Concludere la funzione
SortSSets secondario pubblico (Aset come AcadSelectionSet, iNCols come lungamente)
    MI fioco come lungamente, manganese come lungamente, PTA () come doppio, Ptb () come doppio, Swp come lungamente, ptc () come doppio
    Mk fioco come lungamente
    iDs di ReDim (0 a Aset.Count - 1)
    Per MI = 0 a Aset.Count - 1
        iDs (MI) = MI
    Dopo
    Per MI = 0 a Aset.Count - 2
        Per manganese = MI + 1 a Aset.Count - 1
            PTA = Aset (iDs (MI)).InsertionPoint
            Ptb = Aset (iDs (manganese)).InsertionPoint
            Se PTA (1) < Ptb=""> Ptb (0) allora
                        Swp = iDs (MI)
                        iDs (MI) = iDs (manganese)
                        iDs (manganese) = Swp
                    Concluder se
                Concluder se
            Dopo
        Dopo
    Dopo
Sommergibile dell'estremità

Funzione riservata Aset (iSSetName come stringa) come AcadSelectionSet
    msetA fioco come AcadSelectionSet
    Sul riassunto di errore dopo
    Regolare il msetA = ThisDrawing.SelectionSets.Add (iSSetName)
    Se Err.Number <> 0 allora
        Regolare il msetA = ThisDrawing.SelectionSets (iSSetName)
        msetA.Delete
        Regolano il msetA = ThisDrawing.SelectionSets.Add (iSSetName)
        Err.Clear
    Si concludono se
    Sull'errore 0 di avanzamento
    Regolare Aset = il msetA
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us