[VBA]菜鸟求教！高手帮忙！

laoliu09

菜鸟求教！高手帮忙！


在CAD上画一个矩形，怎样通过编程获得矩形的信息，例如顶点坐标，四边长度等。。。


谢了！

dchlmz

这个你选一个多段线，用Coordinates属性返回坐标，再计算边长了

laoliu09

可不可以举个例子啊！这样会使我举一反三的！写几行代码给我看看行吗？谢了！

dchlmz

Dim ent As AcadEntity
Dim pnt As Variant
Dim NewCoord() As Double
Dim i As Integer
On Error Resume Next
Do
ThisDrawing.Utility.GetEntity ent, pnt, "选择多线段："
If Err Then Exit Sub
If TypeName(ent) Like "IAcad*Polyline" Then Exit Do
Loop
Dim Coord As Variant
Dim CoordCount As Integer
If TypeName(ent) = "IAcadLWPolyline" Then
Coord = ent.Coordinates
CoordCount = (UBound(Coord) + 1) / 2
ReDim NewCoord(UBound(Coord)) As Double
For i = 0 To UBound(Coord) - 1 Step 2
NewCoord(i/2) = Coord(i)
NewCoord(i/2) = Coord(i + 1)
Next i
end if 上面Newcoord()就是各顶点坐标

laoliu09

哪位高手帮我逐行解析一下上面的程序啊！求求各位高手们啦！

dchlmz

找本书看看了，那很多了