如何用VBA提示用户拾取编组图框，并获取编组名称？？高手在哪里？

dong20030432 · 发表于 2018-3-26 11:36:00

如题，原计划用户直接点取编组对象，直接返回其名称，但实际无论如何点取，得到的都是编组中的某个对象，无法实现。后又想到逐一得到用户选择对象的句柄列表（数组1），与groups集合中的对象的句柄（数组2）对比，得出用户选择的编组，结果发现group编组的句柄并不在数组1中，也无法实现。
请教各位高手，具体应该怎么实现，谢谢了！

dong20030432 · 发表于 2018-3-28 09:45:00

高手快来！

dong20030432 · 发表于 2018-3-28 09:46:00

帮帮忙，谢谢大家了！

zzyong00 · 发表于 2018-3-31 22:18:00

copy

Dim obj1 As AcadObject, pt As Variant
ThisDrawing.Utility.GetEntity obj1, pt
Dim objG As AcadGroup, obj2 As AcadObject
For Each objG In ThisDrawing.Groups
    For Each obj2 In objG
        If obj1.ObjectID = obj2.ObjectID Then GoTo Finished
    Next
Next
Finished:
Debug.Print objG.Name