VBA操作AUTOCAD扩展实体数据开发零部件序号标注及明细表关联生成系统.pdf

《VBA操作AUTOCAD扩展实体数据开发零部件序号标注及明细表关联生成系统.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA操作AutoCAD扩展实体数据开发零部件序号标注及明细表关联生成系统摘要：基于对扩展实体数据(Xdata)技术分析，提出开发零部件序号标注及明细表关联生成系统扩展实体数据的使用方法和程序设计思路，并给出了关键代码。关键词：AutoCAD零件序号标注明细表扩展数据引言：从AutoCAD11.0引入扩展数据(Xdata)和扩展记录对象(Xrecord)概念以来，利用"块"属性存取非图形数据不再是唯一方法，而且扩展实体数据的应用使得存取非图形数据更加灵活、方便。从AutoCAD14.0开始VBA集成到AutoCAD，它具有大多数的VB语言

2、功能，通过ActiveXAutomation可以操纵几乎所有AutoCAD对象，以其好懂易学而得到广大工程设计人员的青睐。本文阐述了采用VBA操纵AutoCAD扩展实体数据开发零部件序号标注及明细表关联生成系统的实践方法，为后续的零件信息自动提取、统计及工艺设计(CAPP)与产品数据管理(PDM)、企业资源计划(ERP)等软件平台之间实现信息共享奠定基础。一．扩展实体数据(Xdata)概述1.扩展实体数据的结构实体的扩展数据由应用程序所建立，跟随在该实体常规的实体数据之后，它与常规实体数据一起构成内容更加广泛的实体数据。VBA、Visua

3、lLisp、ObjectARX等应用程序都可以为实体附着扩展数据(Xdata)，它可以附着在任何实体上，包含一个或多个1001组。每一组均以一个互不相同的应用类型名开头，扩展数据的组码在1000至1071之间，按应用类型分组存取不同的数据以适应需要。其结构形式为：(-3("AppName"(组码.数据)(…)(…))("AppName"(组码.数据)(…))(…)))，-3表示扩展数据开始；AppName为登记的应用类型名。应用类型名是存取扩展实体数据的标识，为最大长度为31字节的字符串。附着扩展数据必须指定应用类型名，用户在定义应用类型

4、名时最好具备一定的意义，便于对其进行维护应用。附着了扩展数据的”TEXT”实体数据如下：((-1.<图元名:7efc2400>)(0."TEXT")(330.<图元名:7ef54cc0>)(5."1158")(100."AcDbEntity")(67.0)(410."Model")(8."01粗实线层")(100."AcDbText")(10947.229131.7540.0)(40.4.0)(1."1")(50.0.0)(41.0.618)(51.0.0)(7."FSDBHZ")(71.0)(72.1)(11950.663133.754

5、0.0)(2100.00.01.0)(100."AcDbText")(73.2)(-3("LISTSN"(1000."SeqNum")(1070.1)(1071.3))("Material"(1000."12Cr1MoVG")(1000."15CrMoG"))))它包含"LISTSN"和"Material"两个应用类型的扩展数据。其中，(-1.)…(73.0)是常规实体数据，(-3(…))是扩展实体数据，扩展数据中("LISTSN"(1000."SeqNum")(1070.1)(1071.3))是属于"LISTSN"应用类型的数据块，("

6、Material"(1000."12Cr1MoVG")(1070.1)(1071.3))是属于"Material"应用类型的数据块。属于"LISTSN"应用类型的数据有三个，分别是:（组码1000.字符串”SeqNum"）、(组码1070.实数"1")和（组码1071.实数”3”）；属于"Material"应用类型的数据有两个：（组码1000.字符串”12Cr1MoVG"）和（组码1000.字符串”15CrMoG"）另外，扩展实体数据与常规实体数据有所不同，在扩展实体数据块中，同样代码的数据可以出现多次，每组数据的次序和含义则由使用者自行

7、约定。比如上例中，属于"Material"应用类型的数据：（组码1000.字符串”12Cr1MoVG"）和（组码1000.字符串”15CrMoG"），两个数据的组码相同,均为1000。2.扩展实体数据的附着与提取VBA、VisualLisp、ObjectARX等应用程序均提供了函数来附着和访问扩展实体数据，在本文中介绍VBA的附着与提取函数：SetXdata和GetXdata。SetXdata语法：object.SetXdataXdataType,XdataGetXdata语法：object.GetXdataXdataType,Xdata

8、其中：object—需要附着扩展数据的实体对象，所有图形对象实体均看应用XdataType—组码数组，变体短整数数组，一般声明为IntegerXdata—扩展数据数组，其类型须与对应组码类型一