[分享]：发现一个MS的BAISC源程序

thx

有一个microstation源程序，是控制从DWG与DGN转换的程序，使得层对层，线形对线形，颜色对颜色控制，但是不知道差一点什么定义，不能运行，路过请解决一下。源程序如下：
'DWG Import/Export Settings
Sub Main()
MbeLevelTable.addImportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwglevel.tbl", "MASTERFILE"
MbeWeightColor.addImportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgwtco.tbl"
MbeLineStyle.addImportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgline.tbl"
MbeColorTable.addImportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgcolor.tbl"
MbeCharTable.addImportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgchar.tbl"
MbeDWGImportSettings.xRefNestDepth = 10
Dim point0 As MbePoint
        point0.x = 0#
        point0.y = 0#
        point0.z = 0#
stat = MbeDWGImportSettings.setOrigin(point0)
MbeDWGImportSettings.shiftGlobalOrigin = MBE_Off
MbeDWGImportSettings.importFrozenLayers = MBE_On
MbeDWGImportSettings.mapWeightColor = MBE_Off
MbeDWGImportSettings.displayElement = MBE_On
MbeDWGImportSettings.compressFractions = MBE_Off
MbeDWGImportSettings.mapCharacters = MBE_Off
MbeDWGImportSettings.useLineStyles = MBE_On
MbeDWGImportSettings.resolveXRef = MBE_XRefMissing
MbeDWGImportSettings.unitsMode = MBE_Master
MbeDWGImportSettings.cellMode = MBE_Shared
MbeDWGImportSettings.ColorMode = MBE_AcadPalette
MbeDWGImportSettings.convertAttributes = MBE_Tags
MbeLevelTable.addExportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwglevel.tbl", "MASTERFILE"
MbeWeightColor.addExportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgwtco.tbl"
MbeLineStyle.addExportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgline.tbl"
MbeColorTable.addExportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgcolor.tbl"
MbeCharTable.addExportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgchar.tbl"
MbeWeightWidth.addExportEntryFromFile "d:\microstation\Home\prefs\dwgdata\dwgwght.tbl"
MbeDWGExportSettings.refSourceView = 1
MbeDWGExportSettings.masterSourceView = 0
MbeDWGExportSettings.numberOfColors = 256
MbeDWGExportSettings.seedDWGFile = ""
MbeDWGExportSettings.overrideLevelNames = MBE_On
MbeDWGExportSettings.expandFractions = MBE_On
MbeDWGExportSettings.useColorMapping = MBE_Off
MbeDWGExportSettings.useCharMapping = MBE_Off
MbeDWGExportSettings.convertWeight = MBE_WeightAs_Ignore
MbeDWGExportSettings.defaultRefMode = MBE_MergeRef
MbeDWGExportSettings.defaultClippedRefMode = MBE_MergeRef
MbeDWGExportSettings.defaultSelfRefMode = MBE_MergeRef
MbeDWGExportSettings.resolveRefAttachments = MBE_XRefMissing
MbeDWGExportSettings.unitsMode = MBE_Master
MbeDWGExportSettings.dwgVersion = MBE_DWGVER_14
MbeDWGExportSettings.convertShapes = MBE_Shape_As_Polyline
MbeDWGExportSettings.convertSmallFilledShapes = MBE_Shape_As_Solid
MbeDWGExportSettings.convertSmallShapes = MBE_Shape_As_Polyline
MbeDWGExportSettings.convertWideLineCode = MBE_LStyleOpt_PolyLine
MbeDWGExportSettings.convertComplexLStyle = MBE_LStyleOpt_SingleLine
MbeDWGExportSettings.dxfOutOption = MBE_DXFFile_Complete
End Sub

gp341

从DWG与DGN转换的的时候 ms本身就可以 层对层，线形对线形，颜色对颜色
不需要其它程序

thx

斑竹,你用V8转的吧,V7可不行,V7转过来后,只有层可以对应,线形,颜色,和线宽都没有

gp341

你的例子只是参数的设置 并没有什么实际功能