• VB中对AutoCAD控制窗口界面


    窗口界面控制包括AutoCAD应用程序窗口界面控制和AutoCAD绘图窗口控制,以及VB窗口界面和AutoCAD窗口界面的相互切换。

    利用AutoCAD应用程序对象的属性,可以控制或查询AutoCAD窗口界面的现实状态。

    acadapp.WindowState = acMax
    acadapp.WindowState = acMin
    acadapp.WindowState = acNorm
    acadapp.Visible = False

    上语句分别将AutoCAD窗口设置为最大、最小和一半状态,最后一句将AutoCAD窗口设置为不可见。

    利用Document对象属性可以控制或查询AutoCAD绘图窗口的现实状态。

    acadapp.ActiveDocument.Width = acadapp.Width / 2
    acadapp.ActiveDocument.Height = acadapp.Height / 2
    acadapp.ActiveDocument.WindowState = acMax
    acadapp.ActiveDocument.WindowState = acMin
    acadapp.ActiveDocument.WindowState = acNorm

    上语句设置AutoCAD绘图窗口的宽高为AutoCAD窗口界面的一半,设置AutoCAD的绘图窗口显示为最大、最小、一般状态。

    使用VB的AppActivate语句,可以实现VB程序界面切换到AutoCAD界面,语法如下。

    AppActivate title(,wait)

    参数title表示所要激活的应用程序窗口标题,wait表示在激活另外一个应用程序之前调用的应用程序是否具有焦点,如果为false,即使调用的应用程序没有焦点,也直接激活指定的应用程序如果为true,则调用的应用程序会在等到具有焦点后,才激活指定的应用程序。

    将VB程序窗口切换到AutoCAD界面语句如下。

    AppActivate AcadApp.Caption

    执行该语句后,AutoCAD将获得焦点,AutoCAD窗口界面的大小保持先前的状态,若AutoCAD窗口界面先前的状态不为最小化,VB窗口将最小化,屏幕显示AutoCAD窗口界面,若要重新使VB获得焦点并显示VB界面,单击屏幕下方的最小化VB窗口即可。

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    ORACLE PL/SQL编程总结(二)
    ORACLE PL/SQL基础编程
    Linux centos7环境下安装Nginx
    namespace 实例命名空间 及 应用命名空间 问题
    python 2.7 的django项目
    django项目 导出 和 安装 依赖包
    windows 2012 安装apache
    FX-玩列表
    记录pycharm快捷键出错的其中一个原因
    Django 安装配置
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503124.html
Copyright © 2020-2023  润新知