wjmgis 发表于 2009-8-19 10:27:00

求助两个问题

<p>求助两个问题</p><p>1、我想将图面上所有点的三维坐标导出文本文件，我用以下代码取得了点，可怎么知道每个点的坐标和高程啊，请各位指点（或有更好的方法请给出）</p><p>2、如何将所选三维多些上的点的坐标和高程导出及该线所围闭合区域内的点的坐标和高程导出。</p><p>Sub ad_LayerSS()<br/>Dim ObjSS As AcadSelectionSet<br/>Dim adObj As AcadObject<br/><br/>Dim adDXFCode(0 To 1) As Integer, adDXFGroup(0 To 1)<br/>&nbsp;Dim LayerName As String<br/>&nbsp;LayerName = "0"<br/><br/>Set ObjSS = ThisDrawing.SelectionSets.Add("ObjSS")<br/>adDXFCode(0) = 8: adDXFGroup(0) = LayerName: adDXFCode(1) = 67: adDXFGroup(1) = 0<br/>ObjSS.Select acSelectionSetAll, , , adDXFCode, adDXFGroup<br/>If ObjSS.Count &lt;&gt; 0 Then<br/>For Each adObj In ObjSS<br/>If adObj.ObjectName = "AcDbPoint" Then<br/>adObj.color = acRed&nbsp;&nbsp; 'Your modifications here<br/>End If<br/>Next adObj<br/>End If<br/>ObjSS.Delete<br/>ThisDrawing.Application.Update<br/></p><p>End Sub</p>

雪山飞狐_lzh 发表于 2009-8-19 11:13:00

<u><font color="#810081"><a href="http://www.mjtd.com/object/acad2004/idh_point_object.htm">http://www.mjtd.com/object/acad2004/idh_point_object.htm</a></font></u><a href="http://www.mjtd.com/object/acad2004/idh_coordinates.htm"></a>
页: [1]
查看完整版本: 求助两个问题