xilin 发表于 2006-7-2 11:38:00

我是使用VB.NET，对AUTOCAD使用ole开发时，如何全选要素呢？

<P>我的代码如下：</P>
<P>&nbsp;Dim exportFile As String = CrtFileName("")&nbsp;&nbsp;&nbsp;</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim min1p As Object, max1p As Object<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min1p = gAcadApp.ActiveDocument.GetVariable("extmin")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; max1p = gAcadApp.ActiveDocument.GetVariable("extmax")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'dim pointLists as AutoCAD.AcadPolyline</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sel1 As AutoCAD.AcadSelectionSet&nbsp; '定义选择集对象<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Dim Enumber As Integer<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '&nbsp;&nbsp;&nbsp; Dim entry As AcadObject<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sel1 = gAcadApp.ActiveDocument.SelectionSets.Add("sel3")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sel1.Select(AutoCAD.AcSelect.acSelectionSetAll) ', min1p, max1p)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.WriteLine(sel1.Count)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gAcadApp.ActiveDocument.Export(exportFile, "WMF", sel1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </P>
<P>但是在导出的WMF图像中，只有一部分，即只有在直接使用CAD打开图形时的显示的部分，未显示部分，它没有导入到WMF中，如何解决呢？</P>
页: [1]
查看完整版本: 我是使用VB.NET，对AUTOCAD使用ole开发时，如何全选要素呢？