请问在vba中,怎么样选择一个对象(图片),让他被选中后不显示那个框框?用select选择会有个框 10
展开全部
Dim myset As AcadSelectionSet
Set myset = ThisDrawing.SelectionSets.Add("aaa")
myset.SelectOnScreen
n = myset.Count - 1
For i = 0 To n
MsgBox myset(i).Handle
Next
在以上代吗中,选择集“aaa中的所有对象就是你己选择的,本代码罗列出所有你选中对象的句柄,根据句柄你可以访问选择集内的任意对象。当然,你也可能根据选集中的对象属性是否为直线来做一些其它工作。因此,VBA完全可以将选择集内外的线加以区别的.
Set myset = ThisDrawing.SelectionSets.Add("aaa")
myset.SelectOnScreen
n = myset.Count - 1
For i = 0 To n
MsgBox myset(i).Handle
Next
在以上代吗中,选择集“aaa中的所有对象就是你己选择的,本代码罗列出所有你选中对象的句柄,根据句柄你可以访问选择集内的任意对象。当然,你也可能根据选集中的对象属性是否为直线来做一些其它工作。因此,VBA完全可以将选择集内外的线加以区别的.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询