[新手求助]怎样在VBA中判断图形被选中!

CHENBIN12

怎样在VBA中判断图形被选中,如直线,长方形,等是否被选中.先谢谢各位了.

CHENBIN12

大家帮帮忙撒

alin

highlight显示

CHENBIN12

谢谢版主,看了一下,但是不知道怎么用呢?怎么判断直线是被选中状态?拜求

天龙八部

用objectname判断

CHENBIN12

可否给段示例代码呢?麻烦

天龙八部

if ppentity.objectname="acdbline" then

msgbox "直线选中"

ppentity.color=acred      '改变COLOR

end if

qxz

alin说得对，可以highlight显示。

AcadEntity.Highlight(True)

alphasxb

object.Highlight HighlightFlag

Object

MSITStore:D:\SMALL%20TOOLS\AutoCad%202004\help\acadauto.chm::/all_drawing_objects.htm">All Drawing Objects, MSITStore:D:\SMALL%20TOOLS\AutoCad%202004\help\acadauto.chm::/idh_selectionset_object.htm">SelectionSet, MSITStore:D:\SMALL%20TOOLS\AutoCad%202004\help\acadauto.chm::/idh_attributeref_object.htm">AttributeReference, MSITStore:D:\SMALL%20TOOLS\AutoCad%202004\help\acadauto.chm::/idh_group_object.htm">Group
The object or objects this method applies to.

HighlightFlag

Boolean; input-only

TRUE: The object is highlighted.

FALSE: The existing highlight is removed from the object.

Remarks

Once the highlight flag for an object has been set, a call to the MSITStore:D:\SMALL%20TOOLS\AutoCad%202004\help\acadauto.chm::/idh_update.htm">Update or MSITStore:D:\SMALL%20TOOLS\AutoCad%202004\help\acadauto.chm::/idh_regen.htm">Regen method is required to view the change.

Note that this function does not return the current highlight status of an object.

      可以看出highlight不行的

alphasxb

    vba 好像实现不了这个