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

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

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

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

gaich 发表于 2002-9-28 14:22:00

大家帮帮我呀,这个问题憋住了,我下面的工作就进行不下去了.

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

VBA取点坐标的函数很少?我不这么认为

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

mccad 发表于 2002-9-28 19:59:00

主要是你的问题提得不清楚，大家都不知如何下手

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