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

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

我的选择集中有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 的中点坐标?

发表回复

精选推荐

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

发表回复

精选推荐

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