'DWG Import/Export Settings

Sub Main

'-----------------------------------------------------------------------------
'   The following examples are presented as patterns to use in your own
'   table mappings. Copy and modify with your own settings.
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
'   Block Name Table Maps Block names to Cell names. 
'-----------------------------------------------------------------------------
'-----------------------------------------------------------------------------
'   The following example will map block BLOCK1 to Cell5 for import only
'-----------------------------------------------------------------------------
'MbeBlockNameTable.addImportEntry "BLOCK1", "CELL5"

'-----------------------------------------------------------------------------
'   This next example will map cell LBLKNM to LONGBLOCKNAME for export only.
'   With this setting, orphan cells may be mapped to anonymous blocks whose
'   names started with asterisk *.  If set as such, an integer number will be 
'   appended at the end of each anonymous block name, e.g. "*o29".  If orphan
'   cells are not mapped they retain empty block names.
'-----------------------------------------------------------------------------
'MbeBlockNameTable.addExportEntry "LONGBLOCKNAME", "LBLKNM"
MbeBlockNameTable.addExportEntry "*o", ""

'-----------------------------------------------------------------------------
'   The following example with map block BLOCKNAME to BLKNAM on import and then
'   the reverse on export.
'-----------------------------------------------------------------------------
'MbeBlockNameTable.addImportExportEntry "BLOCKNAME", "BLKNAM"

'-----------------------------------------------------------------------------
'   ASCII Files containg mappings can also be read for import, export or both.
'-----------------------------------------------------------------------------
'MbeBlockNameTable.addImportEntryFromFile "someblk1.txt"
'MbeBlockNameTable.addExportEntryFromFile "someblk2.txt"
'MbeBlockNameTable.addImportExportEntryFromFile "someblk3.txt"


'-----------------------------------------------------------------------------
'   MBEFontNameTable maps font file names to font numbers with optional width
'   factor and oblique angle. This object replaces functionality previously
'   provided in dialog based font map editing. The last two parameters are
'   optional but if you want to set the oblique angle, (last parameter), you
'   must also set the width factor as well. The same methods that are
'   available for the block name mapping table are available for the font
'   mapping table.
'-----------------------------------------------------------------------------
'MbeFontNameTable.addExportEntry "romanc", 3, 2.0, 30.0
'MbeFontNameTable.addImportEntry "romand", 10, 4.0
'MbeFontNameTable.addImportExportEntry "romans", 7, 1.0, 15.0
MbeFontNameTable.addImportExportEntry "1",1
MbeFontNameTable.addImportExportEntry "TXT",1
MbeFontNameTable.addImportExportEntry "SIMPLE",1
MbeFontNameTable.addImportExportEntry "INGLEROY",1
MbeFontNameTable.addImportExportEntry "2",2
MbeFontNameTable.addImportExportEntry "ROMANS",2
MbeFontNameTable.addImportExportEntry "LEROY",2
MbeFontNameTable.addImportExportEntry "ROMANS085",2
MbeFontNameTable.addImportExportEntry "7",7
MbeFontNameTable.addImportExportEntry "23",23
MbeFontNameTable.addImportExportEntry "SLEROY",23
MbeFontNameTable.addImportExportEntry "ITALIC",23
MbeFontNameTable.addImportExportEntry "ITALICC",23
MbeFontNameTable.addImportExportEntry "ITALICT",23
MbeFontNameTable.addImportExportEntry "SCRIPTC",23
MbeFontNameTable.addImportExportEntry "26",26
MbeFontNameTable.addImportExportEntry "GREEKC",26
MbeFontNameTable.addImportExportEntry "GREEKS",26
MbeFontNameTable.addImportExportEntry "41",41
MbeFontNameTable.addImportExportEntry "FREEHAND",41
MbeFontNameTable.addImportExportEntry "42",42
MbeFontNameTable.addImportExportEntry "OUTLINE",42
MbeFontNameTable.addImportExportEntry "HOLLOW",42
MbeFontNameTable.addImportExportEntry "43",43
MbeFontNameTable.addImportExportEntry "BOLD",43
MbeFontNameTable.addImportExportEntry "HELV",43
MbeFontNameTable.addImportExportEntry "56",56
MbeFontNameTable.addImportExportEntry "SHADOW",56

'-----------------------------------------------------------------------------
'   This next line is not commented off as it retains compatibility with
'   previous versions of the font mapping table.
'-----------------------------------------------------------------------------
'MbeFontNameTable.addImportExportEntryFromFile "dwgfont.tbl"


'
'   Current DWG Import setting properties
'       Possible values listed to right
'
MbeDWGImportSettings.polylineWidthAs = MBE_Linestyle 	' MBE_Shape, MBE_Linestyle, MBE_None
MbeDWGImportSettings.ignoreEmptyLayers = MBE_ON     	' MBE_On, MBE_Off
MbeDWGImportSettings.strokeSplines = MBE_Off            ' MBE_On, MBE_Off
MbeDWGImportSettings.dimCreate = MBE_CREATEDIMCOMBO     ' MBE_CREATEDIMCELL,
                                                        ' MBE_CREATEDIMCOMBO,
                                                        ' MBE_CREATEDIMONLY
MbeDWGImportSettings.justifyText = MBE_On	    	' MBE_On, MBE_Off
'--------------------------------------------------------------------------------
'   In MicroStation 95, ACAD R13 solids may be ignored at import or dropped
'   to primitive wireframe elements.  This option is not needed in Modeler which 
'   fullly supports ACIS solids.
'--------------------------------------------------------------------------------
MbeDWGImportSettings.convertACIS = MBE_Wireframe        ' MBE_Ignore, MBE_Wireframe

'
'   Current DWG Export setting properties
'       Possible values listed to right
'
MbeDWGExportSettings.ltScale = 1.0		    	' any value > 0
MbeDWGExportSettings.DXFPrecision = 6		    	' any positive int 
MbeDWGExportSettings.refNameInLayer = MBE_ON	    	' MBE_On, MBE_Off
MbeDWGExportSettings.reverseTagOrder = MBE_Off          ' MBE_On, MBE_Off

end sub