关于控制autoCAD窗口的问题

wenyuan

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

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

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

多谢多谢！

mccad

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

wenyuan

如果是2002呢?

mccad

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

wenyuan

对不起

能不能具体一点的说说

怎么加载？

风魔飘香

试试这个，可以去掉工具栏和菜单，但会影响到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

风魔飘香

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

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