wenyuan 发表于 2003-11-4 19:22:00

关于控制autoCAD窗口的问题

请问如何控制打开的AutoCAD窗口？

首先我已经定义了一个变量如下：
   Dim AcadApp As AcadApplication

现在我想实现：隐藏AutoCAD窗口的工具栏和菜单（实际上只想留下打开的文件的窗口），对窗口位置以及大小的控制

多谢多谢！

mccad 发表于 2003-11-4 22:42:00

如果是2004，可使用清除屏幕的方法

wenyuan 发表于 2003-11-5 20:34:00

如果是2002呢?

mccad 发表于 2003-11-5 20:51:00

加载Express工具，也有这样的一个命令

wenyuan 发表于 2003-11-10 13:09:00

对不起

能不能具体一点的说说

怎么加载？

风魔飘香 发表于 2003-11-11 17:44:00

试试这个，可以去掉工具栏和菜单，但会影响到AutoCAD的正常使用。即你打开AutoCAD时，这些工具栏和菜单也没了。:)

    Dim oMenu As AcadPopupMenu
    Dim oToolBar As AcadToolbar
    Dim oMenuGroup As AcadMenuGroup

    For Each oMenu In OLE1.object.Application.MenuBar
      oMenu.RemoveFromMenuBar
    Next

    For Each oMenuGroup In OLE1.object.Application.MenuGroups
      For Each oToolBar In oMenuGroup.Toolbars
            oToolBar.Visible = False
      Next
    Next

风魔飘香 发表于 2003-11-11 17:46:00

sorry,上面的代码有点问题，因为我使用了OLE。下面的代码是对的：
    Dim oMenu As AcadPopupMenu
    Dim oToolBar As AcadToolbar
    Dim oMenuGroup As AcadMenuGroup
    For Each oMenu In AcadApp.MenuBar
      oMenu.RemoveFromMenuBar
    Next

    For Each oMenuGroup In AcadApp.MenuGroups
      For Each oToolBar In oMenuGroup.Toolbars
            oToolBar.Visible = False
      Next
    Next

dailixin 发表于 2003-11-12 15:26:00

老大，我试了您的代码，发现一个问题，帮助菜单没有办法去掉，还有窗体左边布局窗口还有显示。我新建一个模型空间，结果上面有状态条，关闭，最大化等按钮都有，是不是很不好看？怎么把他们去掉。我只想在Picture对象中显示活动模型空间的内容，其余的什么都不想见到，如果新建一个模型控件，也同样。怎么办呢？
页: [1]
查看完整版本: 关于控制autoCAD窗口的问题