mayuezxl 发表于 2006-8-14 21:10:00

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

<P>请问，如何用vba在选择对象时，出现矩形框？</P>
<P>就像这个代码一样，获取距离时，可以出现一根直线。</P>
<P>dim Weizhi1（0 to 2) as Double,&nbsp;varRet&nbsp; As Variant,Henjuli as Double</P>
<P>varRet = ThisDrawing.Utility.GetPoint(, "获取图框左上角坐标点") '==获取边框左上角</P>
<P>&nbsp;&nbsp; &nbsp;Weizhi1(0) = varRet(0)<BR>&nbsp;&nbsp;&nbsp; Weizhi1(1) = varRet(1)<BR>&nbsp;&nbsp;&nbsp; Weizhi1(2) = varRet(2)</P>
<P>Henjuli= ThisDrawing.Utility.GetDistance(Weizhi1, "边框长度")</P>

wyj7485 发表于 2006-8-15 08:17:00

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

雪山飞狐_lzh 发表于 2006-8-15 09:00:00

http://www.mccad.net/object/acad2004/idh_selectonscreen.htm
页: [1]
查看完整版本: [VBA][求助]关于选择时如何出现矩形框