老大！帮忙看看，自己没搞定，arc坐标输出，谢谢了
Sub test()Dim X As Double, y As Double, Z As Double
Dim n As Long
n = ThisDrawing.ModelSpace.Count
Dim Pt As Variant
Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr
Dim lwpLineObj As AcadLWPolyline
If ThisDrawing.ModelSpace.Count > n Then
Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
'MsgBox "面积" & Format(lwpLineObj.Area, "0.000") & "平方米"
'lwpLineObj.Delete
Else
MsgBox "未发现有效的边界"
End If
Dim i As Long, num As Long
Dim retCoord As Variant
num = 0
retCoord = lwpLineObj.Coordinates
num = (UBound(retCoord) - LBound(retCoord) + 1) / 2
For i = 0 To num - 1
X = retCoord(2 * i + 1)
y = retCoord(2 * i)
MsgBox ("X=" & X & "" & "Y=" & y)
怎么判断是圆弧，并把圆弧的数据读出？？？？？？？？？？？谢谢了
Next i
End Sub
Dim sset As AcadSelectionSet
Dim obj As Object
Dim objarc As AcadArc
For Each obj In sset
If TypeOf obj Is AcadArc Then
Set objarc = obj
End If
'获得圆弧的数据
Next
页:
[1]