请问我选中的是什么?

jxb8888 · 发表于 2003-10-6 12:04:00

这段代码我选中的是什么?我是指代码中的选中的变量是什么?怎样识别这个变量是什么?
Private Sub CommandButton1_Click()

' 创建新的选择集
Dim sst As AcadSelectionSet
         ' 提示用户选择对象，
Set sst = ThisDrawing.SelectionSets.Add("aa")
      ' 提示用户选择对象，
Me.Hide
sst.SelectOnScreen
'---------------------------
      sst.Delete
End Sub

leeyeafu · 发表于 2003-10-6 12:17:00

变量sst是选择集对象(AcadSelectionSet)，它是一个集合对象，包括用户向集合中添加的各种ACAD图形对象。你可以用sst.Item()访问其中的ACAD图形对象。
不知道这样说你是不是明白了。

zeng29 · 发表于 2003-10-6 16:15:00

要识别已经选中的是什么对象可通过判断sst.Item(index).ObjectName来识别.

jxb8888 · 发表于 2003-10-6 23:00:00

OK,,,本人受各位的指点,已轻松搞定我的问题.但是新问题出来了,我在右键菜单中写了一个菜单,但不知怎样调用我写的一个模块,,,,,伤脑筋!!

jxb8888 · 发表于 2003-10-6 23:06:00

就像这个代码中我没办法调用一个叫"dimadd"的模块,不知怎样在运行过程中点选右键菜单时调用模块:::
伤脑筋!!!
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

' 创建新菜单
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("Menu")

' 向新菜单添加菜单项
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' 给宏指定“ESC ESC _open”的 VBA 等价值
openMacro = "vbarun "

Set newMenuItem = newMenu.AddMenuItem _
(newMenu.Count + 1, "dimadd", openMacro)

' 在菜单栏上显示菜单
newMenu.InsertInMenuBar _
(ThisDrawing.Application.MenuBar.Count + 1)