王咣生 发表于 2004-3-5 16:43:00

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

<b>如何获得参考块中的多义线的坐标<BR></b>在不炸开块的情况下,如何获得参考块中的多义线的坐标?



<b>有这样的例子吗?</b>

mccad 发表于 2004-3-5 17:56:00

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这样就可以取得参照中的图元，但坐标必须进行转换。

王咣生 发表于 2004-3-8 11:33:00

回复

就是坐标变换,我没有在VBA中用过.
页: [1]
查看完整版本: 如何获得参考块中的多义线的坐标?