AutoCAD二次开发的方法与实例

ＡｕｔｏＣＡＤ二次开发的方法与实例　刘保华　，邢胜旺。　（１．河北建工学院数理系，河北张家口０７５０２４；２．张家口机械工业学校，河北张家口０７５０００）　摘　要：介绍了利用ＶＢＡ对ＡｕｔｏＣＡＤ进行二次开发的技术基础，对基于Ａｃｔｉｖｅ　Ｘ技术和应用面向　对象方法开发ＡｕｔｏＣＡＤ的有关问题进行了分析研究，并以常用函数几何曲线的精确绘制为例，阐明了　ＡｕｔｏＣＡＤ二次开发的基本思路、主要步骤和具体方法。　关键词：ＶＢＡ；ＡｕｔｏＣＡＤ；二次开发；Ａｃｔｉｖｅ　Ｘ　中图分类号：ＴＰ　３９　文献标志码：Ａ　、　ＡｕｔｏＣＡＤ以其强大的交互功能和图形处理能　一起，提供了一个非常强大的接口。它不仅控制　力而成为工程技术人员最为喜爱的绘图软件，但其　本身计算功能不强，无法解决一些设计计算和数据　处理等问题。传统的计算机辅助机械设计通常是采　用高级语言进行设计计算，将结果存储为标准结构　的数据文件（如＊．ＤＸＦ），再由ＡｕｔｏＣＡＤ调用该　文件形成图形，其编程和调用过程复杂而效率低下。　ＡｕｔｏＣＡＤ的对象，也能向其它应用程序发送数据　或从中提取数据。　２　ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ技术　ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ也称为ＡｃｔｉｖｅＸ自动化服　务功能，以前也称为对象链接和嵌入（ＯＬＥ）。它允　许Ｗｉｎｄｏｗｓ中应用程序之间进行相互的对话、沟通　值得庆幸的是，Ａｕｔｏｄｅｓｋ从ＡｕｔｏＣＡＤ１４开始提供　了更为有效的二次开发工具——ＶＢＡ（Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎ），它是内嵌于ＡｕｔｏＣＡＤ中的完全　面向对象体系结构的一种二次开发编程语言，与　和控制。ＡｃｔｉｖｅＸ将应用程序模块化，把有关的数　据和操作封装起来，以对象的形式提供给另一个应　用程序，而用户不必了解其详细的内部实现过程。　ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ过程以动态链接库的形式提　供，实现了代码的共享。　ＶＢ有着几乎一样的开发环境和语法，具有功能强　大和易于掌握的特点。它驻留在主程序内部，使其　结构精简，故代码运行效率非常高。它的出现弥补　了ＡｕｔｏＣＡＤ计算功能不足的缺陷，使开发机械　ＣＡＤ一体化系统成为可能。本文以绘制常用函数　几何曲线为例，详细介绍利用ＶＢＡ进行ＡｕｔｏＣＡＤ　二次开发的方法。　３应用ＶＢＡ开发ＡｕｔｏＣＡＤ的程序实例　利用ＡｕｔｏＣＡＤ　ＶＢＡ语言实现常用函数几何　曲线的精确绘制。　程序的运行界面如　图１所示，能在图形　１　二次开发工具——ＶＢＡ　ＶＢＡ（ＶｉＳｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎ）是一种嵌　入ＡｕｔｏＣＡＤ内部基于对象的集成编程环境。在　ＶＢＡ中，ＡｕｔｏＣＡＤ通过ＡｅｔｉｖｅＸ提供了一个沟通　中创建４种常用三　角函数的曲线。　１）利用Ａｕｔｏ－　ＣＡＤ　ＶＢＡ语言编程　的基本思路　首先绘制坐标　外部世界的机制，使得ＡｕｔｏＣＡＤ通过不同的编程　语言和环境进行二次开发。从语言结构上来讲，　ＶＢＡ是ＶＢ（Ｖｉｓｕａｌ　Ｂａｓｉｃ）的一个子集，它们的语言　结构是相同的，ＶＢＡ依附于主应用程序ＡｕｔｏＣＡＤ，　与主应用程序的通信简单而高效。由于共享内存空　轴的箭头，在图形中　创建了一个多段线，　图１程序运行界面　然后使用ＳｅｔＷｉｄｔｈ方法设置起点和端点的宽度，起　点宽度设置为１．５，终点宽度为０，获得箭头的效果。　间，使它具有更快的执行速度，且语法结构简洁，便　于用户快速高效地开发出适用的应用软件，因此得　到了广泛的应用。　ＡｕｔｏＣＡＤ　ＶＢＡ允许其Ｖｉｓｕａｌ　Ｂａｓｉｃ环境与　ＡｕｔｏＣＡＤ同时运行，并通过ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ　使用图像框来显示ＷＭＦ文件，可以先由程序代码　在图形窗口中创建，然后对图形对象进行适当的修　改。在ＡｕｔｏＣＡＤ主应用程序中，选择【文件／输出】　菜单项，就可以导出一个ＷＭＦ文件。　然后绘制三角函数曲线，其方法与创建其他曲　线的方法一致，计算出曲线中多个点的坐标，创建一　・２５・　接口提供对ＡｕｔｏＣＡＤ的编程控制。这样就把Ａｕ—　ｔｏＣＡＤ、ＡｃｔｉｖｅＸ　Ａｕｔｏｍａｔｉｏｎ和ＶＢＡ紧密结合在　《新技术新工艺》・数字技术与机械加工工艺装备　２００８年　第２期　维普资讯 http://www.cqvip.com

条轻量多段线来模拟函数曲线。　．Ｌｉｓｔｌｎｄｅｘ一０　最后利用ＡｕｔｏＣＡＤ软件将当前图形窗口中的　Ｅｎｄ　Ｗ　ｉｔｈ　几何曲线输出为ＢＭＰ文件，可供其他的图像编辑　ｉｍｇＰｒｅｖｉｅｗ．ＡｕｔｏＳｉｚｅ—Ｆａｌｓｅ　无论图像大小如何，图　软件使用。　像控件大小不变　ｂＰｉｃｋ—Ｆａｌｓｅ　２）程序开发的基本步骤　Ｅｎｄ　Ｓｕｂ　ａ．在ＡｕｔｏＣＡＤ２００４中，打开［ＶＢＡ管理器】对　话框，创建一个新工程，保存在适当的位置，进入　ｆ．窗体中【拾取】按钮的单击事件，用来拾取坐　ＶＢＡ集成开发环境。　标系的原点位置，其实现代码为：　Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＰｉｃｋ＿Ｃｌｉｃｋ（）　ｂ．选择【插入／　Ｄｉｍ　ＰｔＰｉｃｋ　Ａｓ　Ｖａｒｉａｎｔ　用户窗体】菜单项，　Ｆｏｒｍ．Ｈｉｄｅ　向程序中添加一个　ＰｔＰｉｃｋ—ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＰｏｉｎｔ（，”请输入　用户窗体，并在窗体　坐标系的原点：”）　中放置控件。窗体　ｐｔＣｅｎｔｅｒ（０）一ＰｔＰｉｃｋ（Ｏ）　的名称修改为　ｐｔＣｅｎｔｅｒ（１）一ＰｔＰｉｅｋ（１）　Ｆｏｒｍ，图像控件的名　ｐｔＣｅｎｔｅｒ（２）一ＰｔＰｉｃｋ（２）　称为ｉｍｇＰｒｅｖｉｅｗ，组　ｂＰｉｃｋ—Ｔｒｕｅ　已经拾取原点　Ｆｏｒｍ．Ｓｈｏｗ　合框的名称修改为　Ｅｎｄ　Ｓｕｂ　ｃｂｏＴｙｐｅ，其它命令　按钮的名称为ｃｍｄ－　图２添加窗体控件　ｇ．在组合框的改变选项事件中，需要在图像控　件中显示与函数相对应的曲线图像，其实现代码为：　Ｐｉｃｋ、ｅｍｄＯｋ和ｃｍｄＣａｎｃｅｌ。如图２所示。　Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｂｏＴｙｐｅ＿Ｃｈａｎｇｅ（）　ｅ．在【工程资源管理器】窗口中双击Ｔｈｉｓ—　使用相对路径　Ｄｒａｗｉｎｇ，在此代码窗口中添加宏的启动代码：　Ｓｅｌｅｃｔ　Ｃａｓｅ　ｃｂｏＴｙｐｅ．Ｖａｌｕｅ　Ｓｕｂ　ＣｒｅａｔｅＣｕｒｖｅ（）　Ｃａｓｅ　０　Ｆｏｒｍ．Ｓｈｏｗ　ｉｍｇＰｒｅｖｉｅｗ．Ｐｉｃｔｕｒｅ—ＬｏａｄＰｉｃｔｕｒｅ（Ｌｅｆｔ（ｓｔｒ—　Ｅｎｄ　Ｓｕｂ　Ｐａｔｈ，Ｌｅｎ（ｓｔｒＰａｔｈ）一８）＆”ＰＩＣＵＴＲＥ＼０１．ｗｍｆ”）　ｄ．在窗体模块的通用代码区，添加公有变量的　Ｃａｓｅ　１　声明，其相关代码为：　ｉｍｇＰｒｅｖｉｅｗ．Ｐｉｃｔｕｒｅ—ＬｏａｄＰｉｃｔｕｒｅ（Ｌｅｆｔ（ｓｔｒ—　Ｃｏｎｓｔ　ＰＩ　ＡＳ　Ｄｏｕｂｌｅ一３．１４１　５９２　６５３　Ｐａｔｈ，Ｌｅｎ（ｓｔｒＰａｔｈ）一８）＆”ＰＩＣＵＴＲＥ＼０２．ｗｍｆ“）　Ｄｉｍ　ｐｔＣｅｎｔｅｒ（２）Ａｓ　Ｄｏｕｂｌｅ　Ｃａｓｅ　２　Ｄｉｍ　ｓｔｒＰａｔｈ　Ａｓ　Ｓｔｒｉｎｇ‘工程文件的路径　ｉｍｇＰｒｅｖｉｅｗ．Ｐｉｃｔｕｒｅ—ＬｏａｄＰｉｃｔｕｒｅ（Ｌｅｆｔ（ｓｔｒ—　Ｄｉｍ　ｂＰｉｃｋ　Ａｓ　Ｂｏｏｌｅａｎ‘用户是否已经拾取原点　Ｐａｔｈ，Ｌｅｎ（ｓｔｒＰａｔｈ）一８）＆”ＰＩＣＵＴＲＥ＼Ｏ３．ｗｍｆ”）　ｅ．窗体的初始化事件中，获得工程文件的路　Ｃａｓｅ　３　径，向组合框中添加元素，并且设置控件的初始状　ｉｍｇＰｒｅｖｉｅｗ．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（Ｌｅｆｔ（ｓｔｒ＿　Ｐａｔｈ，Ｌｅｎ（ｓｔｒＰａｔｈ）一８）＆”ＰＩＣＵＴＲＥ＼Ｏ４．ｗｍｆ”）　态，其相关代码为：　Ｅｎｄ　Ｓｅｌｅｃｔ　Ｐｒｉｖａｔｅ　Ｓｕｂ　ＵｓｅｒＦｏｒｍ—Ｉｎｉｔｉａｌｉｚｅ（）　Ｅｎｄ　Ｓｕｂ　获得工程文件的路径　ｈ．窗体【确定】按钮的单击事件，用来在图形中　ｓｔｒＰａｔｈ＝ＴｈｉｓＤｒａｗｉｎｇ．Ａｐｐｌｉｃａｔｉｏｎ．ＶＢＥ．ＡｃｔｉｖｅＶＢ—　绘制指定的曲线（其实现代码略）。　Ｐｒｏｊｅｃｔ．ＦｉｌｅＮａｍｅ　　’Ｗｉｔｈ　ｃｂｏＴｙｐｅ　３）运行程序，绘　Ｙ　．Ａｄｄｌｔｅｍ“　一Ｓｉｎ．ｚ“　制并输出图形　Ａｄｄｌｔｅｍ“　＝Ｃｏｓｘ“　在　集成开　八、　．发环境中，运行程序，　．Ａｄｄｌｔｅｍ”　＝Ｓｉｎｘ＋Ｃｏｓｘ”　＼　／　Ｏ　．Ａｄｄｌｔｅｍ”　＝Ｓｉｎｘ－－Ｃｏｓｘ”　系统会弹出【函数曲　使用下拉列表　线】对话框。从组合　ｏｗｎＬｉｓｔ　框中分别选择一种曲　图３绘镧的函数曲线　．Ｓｔｙｌｅ—ｆｍＳｔｙｌｅＤｒｏｐＤ．ＢｏｕｎｄＣｏｌｕｍｎ一０　线，在图像框中就会自动显示出该曲线的略图，单击　设置默认的显示项目　【确定】按钮，在图形窗口中所得结果如图３所示。　・２６・　《新技术新工艺》・数字技术与机械加工工艺装备２００８年　第２期　维普资讯 http://www.cqvip.com

蓝宝石衬底纳米级超光滑表面加工工艺研究　赵之雯　（福建工程学院电子信息与电气工程系，福建福州３５００１４）　摘　要：通过对蓝宝石衬底片的化学机械抛光工艺的研究，系统地分析了蓝宝石抛光工艺过程的性能　参数，并经过大量试验，总结出影响因素，提出优化方案。得到的结果是：采用粒径为４０　ｒｉｍ、低分散度的　ＳｉＯ　溶胶磨料并配以适当参数进行抛光，能够有效地提高加工效率和被加工的蓝宝石表面性能。　关键词：蓝宝石；化学机械抛光；纳米硅溶胶　中图分类号：ＴＧ　５８０．６９２　文献标志码：Ａ　不断拓展，蓝宝石已经成为最重要的衬底材料之一，　蓝宝石单晶（ａ—Ａｌ　Ｏ。）具有很好的热特性，极　好的电气特性和介电特性，并且惰性强，光透性能　好，有很好的耐磨性，是一种集优良光学性能、物理　具有极大的国内外市场需求。但是由于蓝宝石元件　在航天、军事等方面具有十分重要的用途，因此蓝宝　性能、机械性能和化学性能于一体的多功能氧化物　晶体　］，是具有广泛用途的重要的晶体材料。蓝宝　石单晶是制造ＧａＮ基发光二极管ＬＥＤ的首选衬底　片材料，是性能优越的激光介质材料；它还可制作Ｙ　石晶片加工技术在西方国家都极为保密。目前，国　内蓝宝石晶片生产产生裂痕和崩边的一般占总数的　５　－－－８　，抛光速率也很低，加工常需数小时，且加　工后有约２Ｏ　的晶片表面有较深痕迹，导致返工，　系、Ｌａ系等高温超导薄膜、用来生长新型实用ＭｇＢ　高温超导薄膜＿８　；在国防领域，蓝宝石单晶是红外军　用装置、导弹、潜艇、卫星空问技术、高能探测和高功　率强激光的重要窗口材料瞳　］。　无论是在光电子领域还是光通讯领域都对蓝宝　甚至报废，从而大大提高了其加工成本。为了改善　这种状况，本文针对大尺寸蓝宝石晶片的纳米级化　学机械抛光技术进行了研究，以原子力显微镜　ＡＦＭ为主要检测工具，通过分析在蓝宝石晶片化　学机械抛光（ＣＭＰ）工艺中的抛光液配置及其他影　响因素，并对其进行优化，从而实现能够稳定地制备　无损伤层的超光滑蓝宝石晶片。　石晶片的加工质量有着非常高的要求。譬如作为　ＧａＮ基ＬＥＤ衬底片的蓝宝石晶片，要求其表面是无　损伤的超光滑表面。由于蓝宝石硬度高（莫氏９．５，仅　次于莫氏１０．０的金刚石）、脆性大，对其机械加工十　分困难，无损伤超光滑表面制备技术更加复杂凹］。因　此产业化制备满足各领域需求的高品质蓝宝石晶体　元件技术是相当复杂的系统工程，它涉及晶体结构、　超精密加工、物理、化学、机械制造等相关学科［１引。　随着光电技术的飞速发展，光电产品对蓝宝石　１试验　１．１　抛光盘　将陶瓷抛光盘置于烘箱加热至一定温度后恒温　一段时问后取出，平放于操作台，取抛光蜡均匀分区　涂抹于抛光盘上（涂抹抛光蜡的区域最好对称，以便　抛光时蓝宝石晶片受力均匀），将蓝宝石晶片分别置　于抛光蜡上轻揉至晶片与抛光蜡间没有气泡，然后　学出版社，２００６．　［２］佟士懋．ＡｕｔｏＣＡＤ　ＡｃｔｉｖｅＸ／ＶＢＡ二次开发技术基础及　应用实例［Ｍ］．北京：国防工业出版社，２００６．　［３］肖刚．机械ＣＡＤ原理与实践［Ｍ］．北京：清华大学出版　社，１９９９．　衬底材料需求量的日益增加，同时随着ＬＥＤ元件的　４　结语　基于ＡｃｔｉｖｅＸ技术，使用ＶＢＡ或ＶＢ等面向　对象的开发工具对ＡｕｔｏＣＡＤ进行二次开发，为应　用程序的编写带来了很大的灵活性，充分利用面向　对象的开发技术和ＡｕｔｏＣＡＤ及Ｗｉｎｄｏｗｓ的资源，　可以进一步增强程序的功能和代码重用性。实践证　明，应用上述技术开发产品，ＣＡＤ系统是一种行之　作者简介：刘保华（１９７０一），男，讲师，现从事ＣＡＤ二次开发　及力学的教学与研究工作。　收稿日期：２００７年７月１３日　有效、方便实用的设计方法。　责任编辑吕菁　［参考文献］　［１］张帆．ＡｕｔｏＣＡＤ　ＶＢＡ二次开发教程［Ｍ］．北京：清华大　新技术新工艺》・数字技术与机械加工工艺装备２００８年　第２期　・２７・