请问我选中的是什么?

jxb8888

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

Private Sub CommandButton1_Click()

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

leeyeafu

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

zeng29

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

jxb8888

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

jxb8888

就像这个代码中我没办法调用一个叫"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)

mccad

关于菜单宏，你按照命令行的输入要求写就行，注意有些特殊符号的用法。

jxb8888

明总问你一个私人问题:你现在在宁波吗?

mccad

是的