如何获得参考块中的多义线的坐标?

王咣生

如何获得参考块中的多义线的坐标
在不炸开块的情况下,如何获得参考块中的多义线的坐标? 有这样的例子吗?

mccad

2. Sub GetBlkEnt()
3.        Dim BlkRef As AcadBlockReference
4.        Dim Pnt As Variant
5.        ThisDrawing.Utility.GetEntity Blk, Pnt, "Get Block:"
6.        Debug.Print BlkRef.Name
7.        Dim Blk As AcadBlock
8.        Set Blk = ThisDrawing.Blocks(BlkRef.Name)
9.        Debug.Print Blk(0).ObjectName
10. End Sub

Sub GetBlkEnt()        Dim BlkRef As AcadBlockReference        Dim Pnt As Variant        ThisDrawing.Utility.GetEntity Blk, Pnt, "Get Block:"        Debug.Print BlkRef.Name        Dim Blk As AcadBlock        Set Blk = ThisDrawing.Blocks(BlkRef.Name)        Debug.Print Blk(0).ObjectName End Sub

这样就可以取得参照中的图元，但坐标必须进行转换。

王咣生

就是坐标变换,我没有在VBA中用过.