我的代码如下:
Dim exportFile As String = CrtFileName("")
Dim min1p As Object, max1p As Object min1p = gAcadApp.ActiveDocument.GetVariable("extmin") max1p = gAcadApp.ActiveDocument.GetVariable("extmax") 'dim pointLists as AutoCAD.AcadPolyline
Dim sel1 As AutoCAD.AcadSelectionSet '定义选择集对象 ' Dim Enumber As Integer ' Dim entry As AcadObject sel1 = gAcadApp.ActiveDocument.SelectionSets.Add("sel3") sel1.Select(AutoCAD.AcSelect.acSelectionSetAll) ', min1p, max1p) Debug.WriteLine(sel1.Count)
gAcadApp.ActiveDocument.Export(exportFile, "WMF", sel1)
但是在导出的WMF图像中,只有一部分,即只有在直接使用CAD打开图形时的显示的部分,未显示部分,它没有导入到WMF中,如何解决呢? |