社区 › VB › 如何取得Block的插入点坐标 或 pline 的中点坐标?

gaich 发表于 2002-9-28 11:19:00

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

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

leeyeafu 发表于 2002-9-28 14:47:00

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

gaich 发表于 2002-9-28 19:40:00

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

查看完整版本: 如何取得Block的插入点坐标 或 pline 的中点坐标?