社区 › VBA/VB/ActiveX/API 编程技术 › 如何取得当前所选图元的左下角坐标

清风明月名字 发表于 2012-4-17 09:04:50

如何取得当前所选图元的左下角坐标

请问，如何取得当前所选图元的左下角坐标,下面的代码不是对的，它是整个图形左下角的坐标。
Sub 左下角()
Dim A As Variant
A(0) = ""
A(1) = ""
A = ThisDrawing.GetVariable("extmin")
MsgBox A(0)
End Sub
我是想在取得所选图元左下角坐标后，将这个图元做成以该点为插入点的块参照

查看完整版本: 如何取得当前所选图元的左下角坐标