Question : AUTOCAD Bill de génération de Materails

Salut amis,

I AM woking à une compagnie manufacutring. Ce qui peut je faire pour transférer la liste de BOM créée dans Autocad à ma base de données de serveur de SQL. Veuillez m'aider. comment est-ce que je peux rechercher des données du schéma d'autocad ? class= de

Réponse : AUTOCAD Bill de génération de Materails

Joint est le plein code pour capturer le texte sur la disposition de table qui est dans le schéma qui a été signalé.  Il est dans l'acad VBA. Vous aurez besoin d'itterate par la rangée et obtiendrez l'information.

Si vous avez besoin plus d'aide nous a faits savoir.
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 :

Option explicite
iDs publics () en tant que longtemps
Fonction GetTextForDB ()
    Faible de groupCode variante aussi, dataCode que la variante
    Faible gpCode (0) comme nombre entier
    Faible dataValue (0) comme variante
    Faible msetA comme AcadSelectionSet
    Obscurcir mIi en tant que longtemps
    Placer le msetA = l'Aset (le « FICHIER TEXTE »)
    gpCode (0) = 0
    dataValue (0) = « MTEXT, TEXTE »
    'gpCode (1) = 0
    'dataValue (1) = « TEXTE »
    groupCode = gpCode
    dataCode = dataValue
    AcadApplication.Visible = acTrue
    acActiveViewport de ThisDrawing.Regen
    groupCode de msetA.SelectOnScreen, dataCode
    msetA de SortSSets, 7
    'Voici où vous devez faire la vérification le ce que jamais vous recherchez
    'faire alors l'insertion/mise à jour de substance de base de données….
Finir la fonction
SortSSets secondaire public (Aset comme AcadSelectionSet, iNCols en tant que longtemps)
    Faible MI en tant que longtemps, manganèse en tant que longtemps, Pta () en tant que double, Ptb () en tant que double, Swp en tant que longtemps, ptc () en tant que double
    Faible Mk en tant que longtemps
    iDs de ReDim (0 à Aset.Count - 1)
    Pour MI = 0 à Aset.Count - 1
        iDs (MI) = MI
    Après
    Pour MI = 0 à Aset.Count - 2
        Pour manganèse = MI + 1 à Aset.Count - 1
            Pta = Aset (iDs (MI)).InsertionPoint
            Ptb = Aset (iDs (manganèse)).InsertionPoint
            Si Pta (1) < Ptb=""> Ptb (0) puis
                        Swp = iDs (MI)
                        iDs (MI) = iDs (manganèse)
                        iDs (manganèse) = Swp
                    Finir si
                Finir si
            Après
        Après
    Après
Sous-marin d'extrémité

Fonction privée Aset (iSSetName comme corde) comme AcadSelectionSet
    Faible msetA comme AcadSelectionSet
    Sur le résumé d'erreur après
    Placer le msetA = le ThisDrawing.SelectionSets.Add (l'iSSetName)
    Si Err.Number <> 0 puis
        Placer le msetA = le ThisDrawing.SelectionSets (l'iSSetName)
        msetA.Delete
        Place le msetA = le ThisDrawing.SelectionSets.Add (l'iSSetName)
        Err.Clear
    Finissent si
    Sur l'erreur 0 GoTo
    Placer Aset = msetA
Finir la fonction
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us