Microstation V8 VBA开发入门

Microstation V8 VBA 二次开发 目 录 第一章 概述 ............................................................................................................................................................ 3 1.1 如何加载、运行宏？ ................................................................................................................................ 3 加载工程 .................................................................................................................................................. 3 运行宏 ...................................................................................................................................................... 4 1.2 工程管理器 ............................................................................................................................................... 4 1.3 宏对话框介绍 ........................................................................................................................................... 7 1.4 VBA编辑器................................................................................................................................................ 8 1.5 Microstation VBA环境变量 ...................................................................................................................... 9 练习题： ........................................................................................................................................................ 10 第二章 理解V8 VBA对象 .................................................................................................................................... 11 2.1 对象的属性 ............................................................................................................................................. 11 2.2 对象的方法 ............................................................................................................................................. 11 2.3 过程和子函数的调用 ............................................................................................................................. 12 2.4 V8 VBA对象结构图 ................................................................................................................................ 12 自动化对象模型 .................................................................................................................................... 13 应用（Application）对象结构 ............................................................................................................. 14 模型参考（ModelReference）对象结构.............................................................................................. 15 参考（Attachment）对象结构.............................................................................................................. 16 激活设置（ActiveSettings）对象结构................................................................................................. 17 第三章 DGN文件操作 ......................................................................................................................................... 42 3.1 Application对象 ....................................................................................................................................... 42 3.2 DGN文件属性 ......................................................................................................................................... 43 3.3 DGN文件操作 ......................................................................................................................................... 44 直接打开 ................................................................................................................................................ 44 在内存中打开 ........................................................................................................................................ 45 创建DGN文件 ....................................................................................................................................... 46 练习题： ........................................................................................................................................................ 47 第四章 DGN元素操作 ......................................................................................................................................... 18 4.1 元素类型 ................................................................................................................................................. 18 4.2 选择元素 .................................................................................................................................................. 20 手工选择 ................................................................................................................................................ 21 围栅（Fence）....................................................................................................................................... 21 选择按（Select By）............................................................................................................................. 23 4.3 添加/创建元素 ......................................................................................................................................... 25 CadInputQueue对象 .............................................................................................................................. 25 面向Element对象的代码方式 .............................................................................................................. 28 用户交互输入 ........................................................................................................................................ 32 4.4 删除元素 .................................................................................................................................................. 34 4.5 修改元素 .................................................................................................................................................. 35 练习题： ........................................................................................................................................................ 36 第五章 常用对象介绍 .......................................................................................................................................... 37 围栅（Fence）............................................................................................................................................... 37 Microstation V8 VBA 二次开发教材 层（Level） ................................................................................................................................................... 38 基本元素（Cell、Linestring、Shape、Text） ............................................................................................ 38 青岛市勘察测绘研究院 第 2 页 共 2 页 Microstation V8 VBA 二次开发培训教材 第一章 概述 VB 和 VBA 是专业的程序开发人员和业余开发人员都可以用的，完全的面向对象编程环 境。VB 是很多商业软件（有些可能就是我们平时用的软件）的主要开发平台。VBA 具有 VB 的大部分功能，但 VBA 应用程序不能编译成单独运行的可执行文件或 ActiveX 控件，只能 在诸如 Microsoft Word，Microsoft Excel 或者 MicroStation V8 这样的宿主应用程序中 运行。VB 具有丰富的用户窗体程序包，包括制作 VB/VBA 程序或宏的用户界面所需的控件和 元素。 1.1如何加载、运行宏？ 在 Microstation 中运行 VBA 宏（VBA 程序通常叫做“宏”）之前，必须加载 VBA 宏所在 的 VBA 工程。 加载工程 工程通常是 VBA 程序的完整集合，包含一个或多个宏，文件后缀为.mvba。 ‹ 加载一个 VBA 工程 青岛市勘察测绘研究院 第 3 页 共 3 页 Microstation V8 VBA 二次开发培训教材 1. 选择菜单[工具]Æ[宏] Æ[工程管理器]； 2. 单击工具栏上的“加载工程” 图标； 3. 在弹出的“加载工程”对话框上，选择要加载的 VBA 工程文件（.mvba）； 4. 单击“确定”，所选的工程就出现在 VBA 工程管理器对话框上了。 ‹ 另一种加载 VBA 工程的方法 1. 在“键入”窗口，输入：VBA LOAD <工程文件名（带路径）> 2. 选择菜单[工具]Æ[宏] Æ[工程管理器]，所选的工程就出现在 VBA 工程管理器对话框 上了。 运行宏 在运行宏之前，首先确认包含该宏的 VBA 工程已经加载。 ‹ 用宏对话框 1. 点击“加载工程”对话框上的“宏”按钮，当前所有工程包含的宏的列表就显示出来； 2. 在“宏所在”下拉框里选择要运行的宏所在的工程，列表中就仅仅列出所选工程的宏； 3. 选择相应的宏，点击“运行”按钮，宏就立即执行了。 ‹ 另一种运行宏的方法 在“键入”窗口，输入：VBA RUN <宏的名称>，例如：Module1 模块中的 MyTest 过程 （或函数），可以输入：VBA Run Module1.MyTest ‹ 命令行方式加载并运行宏 在“键入”窗口，输入：VBA RUN [工程名]<宏的名称>，例如：调用 VbaTest1 工程中 Module1 中的 MyTest 过程（或函数），可以输入：VBA Run [VbaTest1]Module1.MyTest ‹ 用菜单或工具按钮运行宏 选择菜单[工作空间]Æ [自定义]，弹出对话框，插入自己的菜单、工具按钮或工具框架， 然后在键入（KeyIn）框里输入：VBA RUN [工程名]<宏的名称>，即同上述“命令行方式加 载并运行宏”。 1.2 工程管理器 工程管理器提供了加载、运行、管理 VBA 宏的所有功能。选择菜单[实用]Æ[宏]Æ[工 青岛市勘察测绘研究院 第 4 页 共 4 页 Microstation V8 VBA 二次开发培训教材 程管理器]，打开工程管理器对话框。 工程管理器像Microstation其他如管理文件和设置等的对话框一样，也没有下拉菜单， 而是在工程管理器界面顶上有一排工具栏，通过它来管理 VBA 工程和宏。每个工具的详细 描述如下： ‹ 新建工程 新建工程图标用于创建一个新的 VBA 工程。点击该图标，弹出创建 VBA 工程对话框， 输入工程名和文件所在的路径。 ‹ 加载工程 加载工程图标用于加载一个已存在的 VBA 工程到工程管理器。点击该图标，出现加载 工程对话框，选择.mvba 文件，点击“确定”按钮就将所选文件的内容加载进来了。 像 Microstation 其他加载各种文件的对话框一样，可以选择某一系统配置变量来设置 要选择的文件的路径，或者也可以选择对话框上的菜单[目录]Æ[当前工作目录]来设置。 ‹ 卸载工程 卸载工程图标用于卸载一个当前加载在内存上的 VBA 工程，在未选择任何工程时，它 是灰色的，不可选择。点击该图标就立即将将工程卸载掉。如果当前工程的某个宏正处于 运行状态，那么会在卸载之前停止执行。 ‹ 另存为 另存为图标用于将选中的工程复制为另一份工程文件，但是并不修改工程模块本身的 名称。例如，当前加载的一个名称为“macros2”模块的工程处于选中状态，选择另存为图 标，将创建另一个工程文件，即使该工程名和原始的工程名不一样，也会包含名为“macros2” 的模块。 青岛市勘察测绘研究院 第 5 页 共 5 页 Microstation V8 VBA 二次开发培训教材 ‹ VBA 编辑器 VBA 编辑器图标用于显示编辑窗口及其里面的内容。所有加载的工程都显示在编辑窗口 里，所以没必要打开 VB 编辑窗口前从工程管理器中选择一个工程。因为在 VB 编辑窗口不 能创建工程，所以在打开编辑窗口之前就应该创建或加载相应的工程。 ‹ 宏 宏图标用于显示宏对话框，在这个对话框里列举出了所有加载工程的全部可用的宏。 详见“宏对话框”。 ‹ 开始记录 该图标用于记录 Microstation 里的操作，并把它保存成 VBA 宏。当未选择任何工程时， 它是灰色的，不可选择。 ‹ 停止记录 该图标用于停止记录 Microstation 里的操作，当未开始记录宏之前，它是灰色，不可 选的。一旦点击了该图标，刚才所记录的宏就只能在 VBA 编辑器里进行添加或修改了。 ‹ 暂停记录 该图标用于暂时停止记录宏，以便可以进行其它操作或命令，而这些操作或命令不会 记录到宏里。当未开始记录宏之前，它也是灰色，不可选的。一旦暂停记录，Microstation 里的任何操作都不会记录到宏里，要继续记录，则需再点击一次该图标。 其它功能： 工程管理器还有重命名工程、添加或修改工程描述以及设置工程自动加载的功能。下 面将介绍这几项功能。另外，在工程管理器对话框的工程列表区域，单击右键，会弹出一 个菜单，功能和相应工具栏上的是一样的。 ‹ 重命名工程 工程管理器的名称一栏是可编辑的，也就是说可以直接点击当前高亮选中的工程的名 称来编辑它，或者单击右键，在弹出菜单中选择“重命名”。 ‹ 添加、编辑工程描述 工程管理器的工程描述一栏也是可编辑的，就是说可以直接点击当前高亮选中的工程 的工程描述来编辑它。虽然实际上没有字数限制，由于受对话框显示范围的影响，只能在 有限的地方显示工程描述，不能完全显示，如果把鼠标悬浮于工程描述栏上，会出现一个 悬浮标签来显示完整的工程描述。 青岛市勘察测绘研究院 第 6 页 共 6 页 Microstation V8 VBA 二次开发培训教材 ‹ 自动加载工程 要设置某工程自动加载，先加载该工程到工程管理器中来，然后点击该工程的“自动 加载”一栏，出现一个对钩号，这就表明下次启动 Microstation 时该工程就会自动加载。 注：要先在配置变量 MS_VBASEARCHDIRECTORIES 里指定相应的路径，否则该工程不会 自动加载。如果用户没有设置自动加载的工程，当打开工程管理器时，会自动加载 MS_VBANEWPROJECTDIRECTORY 里指定的第一个路径下的 Default.mvba 工程。 1.3 宏对话框介绍 在该对话框里列出了所有加载工程或选中工程的全部可用宏。其功能描述如下： ¾ 察看工程内容 宏对话框或者列出所有加载工程的宏，或者列出所选工程的宏，这取决于对话框启动 的方式。 如果标有“宏的位置”标签的下拉框显示“所有标准工程”，那么宏列表里将列出当前 所有加载工程的全部宏。这个下拉框还可以选择仅列出一个工程的宏。 ¾ 运行宏 在对话框里选择一个宏，点击该按钮，就可以运行该宏。 ¾ 调试宏 以调试模式启动所选择的宏。 ¾ 编辑宏 在 VBA 编辑器中打开所选中的宏。 青岛市勘察测绘研究院 第 7 页 共 7 页 Microstation V8 VBA 二次开发培训教材 ¾ 删除宏 将所选中的宏从所在工程中删除。 1.4 VBA编辑器 Microstation VBA 编辑器窗口具有和其它程软件 VBA 一样的标准特征，如 Microsoft Word，Microsoft Excel，MicroStation V8 以及任意包含 VBA 的程序，它展现给业余或专 业开发人员一个友好而完整的编程环境。打开（选择主菜单[实用]Æ[宏] Æ[VBA 编辑器]） VBA 编辑器，它提供了一套丰富的工具和功能。如果要开始一个新工程，首先要用工程管理 器（选择工程管理器工具条上的“新工程”图标）创建并加载该工程，这也是录制宏之前 要做的工作。 从工程管理器或命令行加载的工程的所有文件就出现在[工程]窗口里，在这儿插入一 个或多个 VB 窗体、模块或类模块，就可以开始程序的创建过程了。也许最快的往工程里写 一些代码的方法就是插入一个代码模块，从 VBA 编辑器的主菜单[插入]选择[模块]，VBA 编 辑器就在工程里插入了一个叫做 Module1 的空模块（该模块名自动出现在模块目录里），同 时也在自己的代码窗口里打开等待编辑。通过属性窗口可以修改该模块的名称。 对象浏览器是 VBA编辑环境最有用的工具之一。打开VBA编辑器，选择菜单[视图]Æ[对 象浏览器]或按 F2 功能键，打开对象浏览器，就列出当前程序里所有可用的对象。 从 类 库 选 择 下 拉 框 中 选 择 MicroStationDGN ， 在 对 象 浏 览 器 里 就 显 示 出 MicroStationDGN 对象库里所有的方法、属性和事件。在左栏里单击某一个类，就会在右栏 青岛市勘察测绘研究院 第 8 页 共 8 页 Microstation V8 VBA 二次开发培训教材 里显示该类的所有成员。 1.5 Microstation VBA环境变量 Microstation 里有几个与 VBA 相关的环境变量，主要用于设置新建 VBA 工程的路径、 已有工程的搜寻路径等等。 要快速找到这些变量，可以打开配置对话框（主菜单[工作空间]Æ[配置]），在左边列 表框里选择“VBA”项。 ¾ 新建 VBA 工程的路径 MicroStation 的配置变量 MS_VBANEWPROJECTDIRECTORY 决定了新建 VBA 工程的缺省路 径，该变量的缺省值为“\Bentley\Workspace\standards\vba\”。 MS_VBANEWPROJECTDIRECTORY 可以设置多个路径，但是只有第一个有效，其他将被忽略 掉。 ¾ 工程搜寻路径 变量 MS_VBASEARCHDIRECTORIES 决定了用名称加载工程时，MicroStation 在哪些路径 下搜寻工程。该变量设置了自动加载工程的位置。要选择一个工程设为自动加载，详见“自 动加载工程”。 ¾ 标准工程的名称 青岛市勘察测绘研究院 第 9 页 共 9 页 Microstation V8 VBA 二次开发培训教材 MS_VBAAUTOLOADPROJECTS和MS_VBAREQUIREDPROJECTS配置变量决定了哪些工程在启动 时自动加载。如果两变量都做了设置，则 MS_VBAREQUIREDPROJECTS 变量下的工程优先加载。 ¾ 自动保存 MS_VBASAVEONRUN配置变量决定了修改的VBA工程在执行时是否自动保存。缺省值是1， 表示工程会自动保存；如不需自动保存，则将该变量值设为 0即可。 ¾ 从内存或磁盘打开工程 练习题： 1、 在 D:\V8VBA\目录下新建一 VBA 工程，命名为 MyTest.mvba，工程描述为“我的 VBA 测 试工程”，将其设置为自动加载。 2、 在上述工程里，录制一个宏，设置当前层为 20 层，颜色为 4号色，线宽为 3，添加一条 线、一个 Cell，并打开宏察看源代码。将图形删除，再运行此宏，看运行结果。 3、 自己做一个菜单和按钮，使其可以运行上述宏。 青岛市勘察测绘研究院 第 10 页 共 10 页 Microstation V8 VBA 二次开发培训教材 第二章 理解 V8 VBA 对象 Microstation 文件中的每个绘图元素都可以由 VB 中的某个对象来表示，对象也用 来表示诸如视图和视图组、符号库、围栅、字体等其他元素。还有相应的对象代表 Microstation 应用程序本身。总之，对象是在 Microstation VBA 编程过程中最基本的，而 且是必要的。利用 VBA 编辑器中的对象浏览器可以很方便的浏览、查询 V8 里的所有对象。 2.1 对象的属性 大多数对象，特别是表示图形元素的对象，都具有属性。对象的特征就叫做属性，比 如颜色、线宽、线型等。属性也能影响某个对象的行为，如 IsLock 属性就可以设置一个元 素是否锁定。 设置属性：对象名后面紧跟点号和属性名称，然后等号，后面是该属性的新值。例如， 要把一个叫“element1”的线元素的颜色改变为红色，代码可以这样写： element1.Color = 3 但是，有些元素的属性是只读的，不能改变，例如 IsPlanar 属性用来检验一个元素是 否完全在同一个平面上。因为这是一种是否满足某种条件的，所以在满足某种条件才 做相应动作时是很有用的。接上面的例子，如果元素是平面的，那么就把 element1 的颜色 变为蓝色。 If element1.isPlanar = True Then element1.Color = 1 如果对象的属性只能“读”而不能被改变，该属性就叫做“只读”属性。在帮助中， 每个属性都会指明它是“读/写”还是“只读”。 2.2 对象的方法 方法是对象自身可以进行的动作或行为。例如，ShapeElement 对象具有 Area 方法，要 计算被 ShapeElement 对象“shape1”所封闭的面积，可以用以下代码： Double dArea = shape1.area() 方法通常需要一些参数，用来指定如何执行某个行为，或者执行什么。例如，View 对 象有个用于视图放大的 Zoom 方法，该方法需要一个值来设置缩放的比率。以下代码就是用 青岛市勘察测绘研究院 第 11 页 共 11 页 Microstation V8 VBA 二次开发培训教材 3 倍的比率放大当前视图： view1.Zoom 3.0 2.3 过程和子函数的调用 VBA 中，最普通的方法就是过程和子函数，两者的主要区别是：子函数有返回值，而过 程没有。 调用过程的方式有两种： 1. 用 Call 语句，例如：Call OpenDesignFile ("d:\myDesign.dgn") 2. 过程名后面直接跟着参数，例如：OpenDesignFile "d:\myDesign.dgn" 注：用 Call 语句时，过程的参数必须用括号括起来；而只是用过程名时，就不需要括 号。 子函数调用类似于过程的调用，如果不需用到函数的返回值，可以用 Call 语句；如果 需要用函数的返回值，就要用括号将函数的实参括起来。 If DistanceXY(point1, point2) > 10 Then userChoice = MsgBox ("Distance is too great.", vbOKCancel) End If 这个例子包含两个函数的调用：DistanceXY 和 MsgBox，在调用语句中都用到了返回值， 所以括号是必需的。 2.4 V8 VBA对象结构图 青岛市勘察测绘研究院 第 12 页 共 12 页 Microstation V8 VBA 二次开发培训教材 自 对象模型 AccuDrawHi ElementEnumerator ModelReference ation DGN Rasters 动化 Microst Attachments CrossHatchPatte Application AreaPattern Attachment CadInputMess CadInputQu CellInformati ElementScanCriter ExtendedInfomatio Fence Font Fonts GeoReferenceInformati HatchPatter IAttachmentEvents IChangeTrackEve ILocateCommandEve IModalDialogEvent RasterBlockType RasterClipBoundary RasterClipMask RasterClipMasks RasterColorMode RasterColorModes RasterCompressionMod RasterCompressionMod RasterEnumerator RasterForm RasterFormat RasterInformatio RasterManag RasterBlockType RasterBitmap Raster Pattern NamedGroupMembe ModelReferences LocateCriteri LineStyles LineStyle Levels Level ISaveAsEven IRasterEven IPrimitiveCommandEve ElementCach Element DimensionStyl DesignFile DataBlock DatabaseLin CommandStat ColorTable CollectionEnumera CellLibrary CellInformationEnume View Views Workspace ViewGroups ViewGroup VertexList TextStyles TextStyle TagSets TagSet TagDefinitio TagDefinitio Settings RenderingInformatio 青岛市勘察测绘研究院 第 13 页 共 13 页 Microstation V8 VBA 二次开发培训教材 应用（Application）对象结构 ActiveDesignFile{DesignFile} ActiveModelReference{ModelReference} ActiveSettings{Settings} ActiveWorkspace{Workspace} AttachedCellLibrary{CellLibrary} CadInputQueue{ CadInputQueue } Caption{String} CommandState{ CommandState } CurrentGraphicGroup{Long} FullName{String} HasActiveDesignFile{Bool} HasActiveModelRefernce{Bool} Height{Long} IsAcademicVersion{Bool} IsCellLibraryAttached{Bool} IsRegistered{Bool} IsSerialized{Bool} KeyinArguments{String} LeftPostion{Long} Name{String} Path{String} RasterManager{ RasterManager } TopPostion{Long} VBE{Object} Version{String} Visible{Bool} Width{Long} Application 青岛市勘察测绘研究院 第 14 页 共 14 页 Microstation V8 VBA 二次开发培训教材 模型参考（ModelReference）对象结构 AnyElementsSelected{Bool} AsAttachment{ Attachment } Attachments{ Attachments } ControlElementCache{ElementCache} Description{String} DesignFile{ DesignFile } GlobalOrigin{Point3D} GraphicElementCache { ElementCache } Is3D{Bool} Count{Long} Item{Attachments} ModelReference 青岛市勘察测绘研究院 IsActive{ Bool } IsAttachment{Bool} IsElementSelected{Bool} IsHidden{ Bool } IsLocked{ Bool } IsReadOnly{Bool} Levels{ Levels } MasterUnit{MeasurementUnit} Name{String} ParentModelReference StorageUnit{ MeasurementUnit } SubUnit{ MeasurementUnit } SubUnitsPerMasterUnit{ Double } Type{MicrostationdModelType} UORsPerMasterUnit{ Double } UORsPer StorageUnit { Double } UORsPer SubUnit{ Double } 第 15 页 共 15 页 Microstation V8 VBA 二次开发培训教材 参考（Attachment）对象结构 AnyElementsSelected{Bool} AsAttachment{ Attachment } AttachmentOringin{Point3D} Attachments{ Attachments } AttachName{ String } Count{Long} Item{Attachments} Attachme LogicalDescription{ String } LogicalName{ String } MasterOrigin{ Point3D } MasterUnit{ MeasurementUnit } ControlElementCache{ElementCache} Description{String} DesignFile{ DesignFile } DisplayAsNested{Bool} DisplaysRasterReference{Bool} ElementLocatable{Bool} ElementSnappable{Bool} ElemenVisible{Bool} GlobalOrigin{Point3D} GraphicElementCache { ElementCache } Is3D{Bool} IsActive{ Bool } nt Name{ String } NestLevel{Long} ParentModelReference{ModelReference} Presentation{MicrostationdRenderingMode} Rotation{ Bool } ScaleFactor{Double} ScaleMasterUnits{ Bool } StorageUnit{ MeasurementUnit } SubUnit{ MeasurementUnit } SubUnitsPerMasterUnit{ Double } Type{MicrostationdModelType} UORsPerMasterUnit{ Double } IsAttachment{Bool} IsElementSelected{Bool} IsHidden{ Bool } IsLocked{ Bool } IsReadOnly{Bool} IsTrueScale{Bool} Level{ Level} Levels{ Levels } LineStylesScaled{Bool} UORsPer StorageUnit { Double } UORsPer SubUnit{ Double } UsesLights{Bool} 青岛市勘察测绘研究院 第 16 页 共 16 页 Microstation V8 VBA 二次开发培训教材 激活设置（ActiveSettings）对象结构 Angle{ Double } Angle LockEnable{ Bool } AreaModeHole{ Bool } AreaPatternDelta{ Point2D } AssociationLockEnable{ Bool } AxisAngle{ Double } ActiveS GridReference{Integer} GridUnits{Double} IsometricLockEnable{Bool} Level{Level} LevelLockEnable{Bool} AxisLockEnable{ Bool } AxisOrigin{ Double } BoresitLockEnable{Bool} CapMode{Integer} CellName{ String } CellStretchEnable{Bool} Color{Long} ColorName{ String } ConstrunctionPlaneLockEnable{ Bool } CurrentGraphicGroup{ Long } DepthLocakEnable{ Bool } ElementClass{MicrostationdElementClass } FenceClip{Bool} ettings LineStyle{ LineStyle } LineTeminator{String} LineWeight{Long} LocateTolerance{Integer} PatternAngle1{Double} PatternAngle2{Double} PatternCellName{String} PatternDelta{Point2D } PatternScale{ Double } PointCellName{String} Scale{Point3D} ScaleLockEnable{ Bool } SelectionSetLockEnable{ Bool } FenceOverlap{ Bool } FenceVoid{ Bool } FillColor{ Long } FillMode{MicrostationdFillMode } Font{ Font} GraphicGroupLockEnable{ Bool } GridLockEnable {Bool} SnapLo