如何取得Block的插入点坐标 或 pline 的中点坐标?

gaich

我的选择集中有Block和PLine,我想能使用该函数
    ThisDrawing.Application.ZoomCenter Center, Magnify
Center这个点取Block的中心点或者Pline的中心点,但是不知道该怎么取这个值,高手帮帮忙吧!!!

我觉得用VBA取点坐标的函数很少,是不是这样?

gaich

leeyeafu

BlockRef或BlockReference的插入点坐标：
object.InsertionPoint
pline 的中点坐标我不知道是什么意思。不过你可以用
object.Coordinate(index)
读出AcadPolyline对象的各个点，你说的中点坐标应该可以从中计算出来。

gaich

Dim minExt As Variant
    Dim maxExt As Variant
        
    If ssetobj.Item(Me.MSHFlexGrid1.Row - 1).ObjectName = "AcDbBlockReference" Then
            ThisDrawing.Application.ZoomCenter ssetobj.Item(Me.MSHFlexGrid1.Row - 1).InsertionPoint, 40
        Else
             ssetobj.Item(Me.MSHFlexGrid1.Row - 1).GetBoundingBox minExt, maxExt
             ThisDrawing.Application.ZoomWindow minExt, maxExt
             ThisDrawing.Application.ZoomScaled 0.5, acZoomScaledRelative
    End If

mccad