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