VBA开发AUTOCAD实现参数化绘图VIP免费

第1页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第1页共15页VBA开发AUTOCAD实现参数化绘图王若慧RealizingTheParameter-DrawingtakingtheVBAandAUTOCAD(.山西大学工程学院,山西省太原,030013)WangRuoHuiEngineeringColledgeofSHANXIUniversity,Taiyuan030013)摘要:介绍了采用VBA（VisualBasicforApplication）进行AutoCAD2005的二次开发，应用AutoCADActiveXAutomation接口技术访问AutoCAD对象,采用ADO实现AUTOCAD与MicrosoftAccess2000的数据通信,实现程序参数化绘图的基本思路及程序设计流程.关键词：VBAAutoCADActiveXAutomationADO参数化绘图Abstract:TakingtheActiveXAutomationofVBAandAutoCAD2005toaccesstheAutoCADdrawings,andtheADOtomakethedatacommunicationbetweentheAUTOCADandACCESS,theparameter-drawingcanbewellrealizedinthewaywhatisdescribedinthearticle.Keywords：VBAAutoCADActiveXAutomationADO第2页共15页第1页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第2页共15页theparameter-drawing引言:传统的人机交互式绘图一般需要用精确的尺寸值定义几何元素，输入的每一条线都必须有确定的位置，图形一旦建立，即使结构相似但想改变图形大小尺寸，只能对图形进行编辑。而在工程设计中，一方面，进行新产品设计时不可避免地需要多次反复修改，需要进行多方面的综合协调和优化；另一方面，许多的专业图纸设计中，很多图形结构具有一定的相似性，往往只是尺寸的大小不同，其图形随尺寸参数的变化而相应变化。因此，希望有一种比交互式绘图更方便、更高效、更适合结构相似图形绘制的方法.为了解决这个问题，我们可研制出一种绘图软件，图中尺寸参数通过交互方式输入，随后通过运行有关程序，确定所有的绘图信息，自动绘出图形，这种工作方式通常称为程序参数化绘图.这就是参数化绘图要解决的问题,同时它也是CAD系统很重要的一个环节.1.程序参数化绘图的实质程序参数化绘图主要适用于图形结构形式基本固定而结构尺寸参数变化的图形。程序参数化绘图的实质,就是将图形信息记录在程序中。图形的描述通常可分为：图形的拓扑关系、图形的几何参数以及这些几何参数与图形结构参数之间的联系。通常用一组变量记录图形的几何参数,用一系列的赋值语句表达几何参数与结构参数之间的关系,然后用一系列的调用语句来描述图形的拓扑关系。如图1所示图形的几何参数是四个点的坐标（x1，y1），（x2，y2），（x3，y3）和（x4，y4），结构参数是两个尺寸a和b。这些参数之间的关系为：x1=x4；y1=y2；x2=x3；y3=y4；x2=x1+a；y3=y1+b。（x4，y4）（x3，y3）b（x1，y1）a（x2，y2）图1图形的描述2.程序参数化绘图的实现途径第3页共15页第2页共15页编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第3页共15页为了实现参数化绘图，需要建立一个计算机图形软件系统．应用这个系统可以简化图形设计应用程序的编制，并能方便地应用计算机程序实现图形地输入和输出．建立一个图形系统可以有三种方式：(1)设计专用图形语言．(2)修改高级程序设计语言，使其具有图形处理的功能．(3)建立图形设计程序包．前两种方式都需要用低级或高级语言重写一个编译器．一般来说，修改或者重写一个编译器的工作量比较大，而且图形设计过程并非简单的数据处理过程，还包括许多文件结构和存贮结构的问题，从而使上述工作的复杂性大大增加．有些绘图软件配有内部专用绘图语言，如AutoCAD配有AutoLISP编程语言，DDM/DIMENSION3图形软件配有DAL绘图语言等，利用这些语言用户可以开发参数化绘图软件．但是这些语言的数组，循环，函数，逻辑关系等功能一般较差，不宜作大量的计算工作，编程也不太方便．第三种方式即建立图形设计程序包，其基本思想是选择一种合适的高级程序设计语言作为主语言，在此语言中扩展一系列的过程调用，以实现图形设计工作．在这种情况下，用户编写的图形描述程序由两部分组成：一是主语言语句，另一个是主语言中扩展了的过程调用语句．在扩充某种高级语言使其具有图形处理功能时，最好能利用已有的较成熟的图形软件．3...