|
|
求助两个问题
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
|
|
置顶卡
