[VBA][求助]关于选择时如何出现矩形框

mayuezxl

请问，如何用vba在选择对象时，出现矩形框？

就像这个代码一样，获取距离时，可以出现一根直线。

dim Weizhi1（0 to 2) as Double, varRet  As Variant,Henjuli as Double

varRet = ThisDrawing.Utility.GetPoint(, "获取图框左上角坐标点") '==获取边框左上角

    Weizhi1(0) = varRet(0)
    Weizhi1(1) = varRet(1)
    Weizhi1(2) = varRet(2)

Henjuli= ThisDrawing.Utility.GetDistance(Weizhi1, "边框长度")

wyj7485

MySet.Select acSelectionWindow, P1, P2, FilterType, FilterData

雪山飞狐_lzh

[WEB]http://www.mccad.net/object/acad2004/idh_selectonscreen.htm[/WEB]