你可以试下下面的方法(今天刚好看一本AUTOCAD有关的书上写的):
  dim Acadapp as new AutoCAD.AcadApplication()
  dim sset As AutoCAD.AcadSelectionSet
  sset=Acadapp.ActiveDocument.SelectionSets.Add("1")
  sset.Select(AutoCAD.Acselect.acSelectionSetAll)
  Acadapp.ActiveDocument.Export("c:\1","bmp",sset)
  sset.Delete()