Megjelenítési modell frissítése importált szimbólumokkal

Ha testreszabott szimbólumokat használt a megjelenítési modellekben, és szeretné frissíteni a módosított szimbólumokat, megnyithatja a megjelenítési modellt, létrehozhatja a grafikát, és a MAPSYMBOLIMPORTEXPORT parancs segítségével importálhatja a módosított szimbólumokat. Részletekért lásd: Szimbólumok importálása.

Szimbólumok kötegelt importálása felhasználói felület használata nélkül

1. A Globális szakági modell beállításai Grafika generálása területen válassza az Aktuális rajzok újbóli felhasználása lehetőséget.
2. Nyissa meg a projektet, amelyre a megjelenítési modell vonatkozik, és kezdjen egy üres rajzzal.
3. Állítsa be a CMDDIA és a FILEDIA rendszerváltozót is 0 (nulla) értékre.
4. A parancspromptba írja be a TBDKMEGNYITÁS parancsot.
5. A prompt megjelenésekor adja meg a módosítani kívánt megjelenítési modell elérési útját.
6. Írja be a TBGRAFIKAGENERÁLÁS parancsot.
7. Írja be a MAPSYMBOLIMPORTEXPORT parancsot.
8. A parancs után válassza az Importálás lehetőséget.
9. Adja meg az importálni kívánt szimbólumokat tartalmazó szimbólumfájl elérési útját.
10. Válasszon ki egy importálási opciót annak meghatározásához, hogy hogyan szeretné kiválasztani a szimbólumokat a felhasználói felületen.
11. Fejezze be az importálást, majd írja be a TBDKMENTÉS parancsot.

Másik lehetőségként a fenti lépéseket automatikusan is végrehajthatja egy parancsfájl segítségével. A parancssorban töltse be a parancsfájlt az FKÖNYV paranccsal, és várja meg, amíg befejeződik. Amikor több parancsfájlt hajt végre különböző megjelenítési modellekhez, mindig feltétlenül egy üres rajzzal kezdjen, mielőtt megnyitja a megjelenítési modellt. Ellenkező esetben az előző rajzban lévő régi fóliákat fogja menteni az új megjelenítési modellbe.

Az alábbiakban egy minta parancsfájl látható. Ezt mentheti .scr kiterjesztésű fájlként.

CMDDIA 0
FILEDIA 0
_TBDMOPEN [path to your TBDM file]
_TBGENERATEGRAPHIC
_MAPSYMBOLIMPORTEXPORT _IMPORT [choose options that fit your needs]
_TBDMSAVE

Ha befejezte a parancsfájl használatát, állítsa vissza a CMDDIA és a FILEDIA változók eredeti értékét, ami általában „1”.

VBA-parancsfájl opció

Hogy időt takarítson meg, a szimbólumokat egyetlen művelettel több megjelenítési modellbe is importálhatja egy Microsoft Visual Basic for Applications (VBA) parancsfájl használatával. Az alábbiakban egy minta parancsfájl látható. Ezt használhatja sablonként, végrehajthatja a szükséges módosításokat, majd mentheti .bas fájlként.

Attribute VB_Name = "ImportSymbolInto_IM_DM"
Sub ImportSymbolIntoDisplayModel()
    Dim prototypeDWG, templateDWT As String
    Dim FileDia, CmdDia As Integer
    Dim displayModelArray(0 To 2) As String     'TODO: Adapt to the number of Display Models to update
    
	' TODO - Adapt to your settings
	' Define the path to the Display Models for updating the symbol(s)
	' When adding or removing Display Models, please adapt also the size of displayModelArray
	'  and the loop over all Display Models
    displayModelArray(0) = "C:\TEST\DM1\DM1.tbdm"
    displayModelArray(1) = " C:\TEST\DM2\DM2.tbdm"
    displayModelArray(2) = " C:\TEST\DM3\DM3.tbdm"
    
    ' Attention !!!
    ' Only use the "Generic Graphic" - Application option: Reuse current drawings
    ' We need the same drawing for all operations !
        
    ' TODO - Adapt to your settings
    ' Define where the symbol(s) should be imported from
    prototypeDWG = "C:\temp\symbol_modified.dwg "
    
    ' TODO - Adapt to your settings
    ' Define the template file to be used when open a new DWG
    templateDWT = "c:\temp\Template\map2d.dwt"
    
    Dim currentSDI As Integer
    currentSDI = ThisDrawing.GetVariable("SDI")
    
    If (currentSDI = 1) Then
        MsgBox "The functions works only with multiple drawings [SDI=0]"
        Exit Sub
    End If
    
    FileDia = ThisDrawing.GetVariable("FILEDIA")
    CmdDia = ThisDrawing.GetVariable("CMDDIA")
    
    ThisDrawing.SetVariable "FILEDIA", 0
    ThisDrawing.SetVariable "CMDDIA", 0
    
    ' Loop all Display Models
    For inti = 0 To 2
        ' Open an empty drawing
        Application.Documents.Open (templateDWT)
        ' Open the Display Model
        ThisDrawing.SendCommand "_TBDMOPEN" & vbCr & displayModelArray(inti) & vbCr
        ThisDrawing.SendCommand "_TBGENERATEGRAPHIC" & vbCr
        ' Import the symbol and apply changes to the layers
        ThisDrawing.SendCommand "_MAPSYMBOLIMPORTEXPORT" & vbCr & "_IMPORT" & vbCr & prototypeDWG & vbCr & "_YES" & vbCr
        ' Save the changes of the layers to the Display Model
        ThisDrawing.SendCommand "_TBDMSAVE" & vbCr
        ' Do not save the drawing
        ThisDrawing.Close (False)
    Next
    
    ' Reset the system variables
    ThisDrawing.SetVariable "FILEDIA", FileDia
    ThisDrawing.SetVariable "CMDDIA", CmdDia
    
End Sub

A példa parancsfájlban található egy „ImportSymbolInto_IM_DM” nevű modul egy „ImportSymbolIntoDisplayModel()” nevű részmodullal. A megjelenítési modellek számát és elérési útvonalait a DWT- és a .tbdm fájlok számához kell igazítania.

Szimbólumok importálása több megjelenítési modellbe egy VBA-parancsfájl használatával

1. Nyissa meg a Map 3D parancssort, és írja be a VBAIDE parancsot a Microsoft VBA ablak megnyitásához.

   Ha még nem telepítette az Autodesk AutoCAD VBA Enabler modult, megjelenik egy üzenet, hogy töltse le azt.

2. A Microsoft VBA ablakban tegye a következőket:
   1. Kattintson a Fájl menüre, és válassza a Fájl importálása lehetőséget.
   2. A Fájl importálása párbeszédpanelen keresse meg és válassza ki a parancsfájlt tartalmazó .bas fájlt.
   3. Kattintson a Megnyitás gombra.
   4. A Microsoft VBA ablakban kattintson a Mentés gombra.
   5. A Mentés másként párbeszédpanelen adja meg az elérési útvonalat és a fájlnevet, majd kattintson a Mentés gombra.
3. Zárja be a Microsoft VBA ablakot.
4. A parancssorba írja be a VBABETÖLT parancsot az előzőekben mentett .dvb fájl betöltéséhez.

   Ha a rendszer figyelmeztetést jelenít meg a makrókkal kapcsolatban, kattintson a Makrók engedélyezése lehetőségre.

5. A parancssorba írja be a VBAFUTTAT parancsot, és válassza a kapcsolódó makró futtatását.