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)

mccad 发表于 2003-10-7 06:48:00

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

jxb8888 发表于 2003-10-7 18:17:00

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

mccad 发表于 2003-10-7 18:39:00

是的
页: [1]
查看完整版本: 请问我选中的是什么?