home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / ms95 / disk22 / dir10 / f010450.re_ / f010450.re
Text File  |  1996-04-02  |  4KB  |  74 lines
  1. 'DWG Import/Export Settings
  2.  
  3. Sub Main
  4.  
  5. '-----------------------------------------------------------------------------
  6. '   The following examples are presented as patterns to use in your own
  7. '   table mappings. Copy and modify with your own settings.
  8. '-----------------------------------------------------------------------------
  9.  
  10. '-----------------------------------------------------------------------------
  11. '   Block Name Table Maps Block names to Cell names. 
  12. '-----------------------------------------------------------------------------
  13. '-----------------------------------------------------------------------------
  14. '   The following example will map block BLOCK1 to Cell5 for import only
  15. '-----------------------------------------------------------------------------
  16. 'MbeBlockNameTable.addImportEntry "BLOCK1", "CELL5"
  17.  
  18. '-----------------------------------------------------------------------------
  19. '   This next example with map cell LBLKNM to LONGBLOCKNAME for export only
  20. '-----------------------------------------------------------------------------
  21. 'MbeBlockNameTable.addExportEntry "LONGBLOCKNAME", "LBLKNM"
  22.  
  23. '-----------------------------------------------------------------------------
  24. '   The following example with map block BLOCKNAME to BLKNAM on import and then
  25. '   the reverse on export.
  26. '-----------------------------------------------------------------------------
  27. 'MbeBlockNameTable.addImportExportEntry "BLOCKNAME", "BLKNAM"
  28.  
  29. '-----------------------------------------------------------------------------
  30. '   ASCII Files containg mappings can also be read for import, export or both.
  31. '-----------------------------------------------------------------------------
  32. 'MbeBlockNameTable.addImportEntryFromFile "someblk1.txt"
  33. 'MbeBlockNameTable.addExportEntryFromFile "someblk2.txt"
  34. 'MbeBlockNameTable.addImportExportEntryFromFile "someblk3.txt"
  35.  
  36.  
  37. '-----------------------------------------------------------------------------
  38. '   MBEFontNameTable maps font file names to font numbers with optional width
  39. '   factor and oblique angle. This object replaces functionality previously
  40. '   provided in dialog based font map editing. The last two parameters are
  41. '   optional but if you want to set the oblique angle, (last parameter), you
  42. '   must also set the width factor as well. The same methods that are
  43. '   available for the block name mapping table are available for the font
  44. '   mapping table.
  45. '-----------------------------------------------------------------------------
  46. 'MbeFontNameTable.addExportEntry "romanc", 3, 2.0, 30.0
  47. 'MbeFontNameTable.addImportEntry "romand", 10, 4.0
  48. 'MbeFontNameTable.addImportExportEntry "romans" 7, 1.0, 15.0
  49.  
  50. '-----------------------------------------------------------------------------
  51. '   This next line is not commented off as it retains compatibility with
  52. '   previous versions of the font mapping table.
  53. '-----------------------------------------------------------------------------
  54. MbeFontNameTable.addImportExportEntryFromFile "dwgfont.tbl"
  55.  
  56.  
  57. '
  58. '   Current DWG Import setting properties
  59. '       Possible values listed to right
  60. '
  61. MbeDWGImportSettings.polylineWidthAs = MBE_Linestyle     ' MBE_Shape, MBE_Linestyle, MBE_None
  62. MbeDWGImportSettings.ignoreEmptyLayers = MBE_ON         ' MBE_On, MBE_Off
  63.  
  64. '
  65. '   Current DWG Export setting properties
  66. '       Possible values listed to right
  67. '
  68. MbeDWGExportSettings.ltScale = 1.0                ' any value > 0
  69. MbeDWGExportSettings.DXFPrecision = 6                ' any positive int 
  70. MbeDWGExportSettings.refNameInLayer = MBE_ON            ' MBE_On, MBE_Off
  71. MbeDWGExportSettings.reverseTagOrder = MBE_Off          ' MBE_On, MBE_Off
  72.  
  73. end sub
  74.