《商场现代化》2012年4月（上旬刊）总第679期
目前AutoCAD 是应用最为广泛的通用交互式计算机辅助绘图与设计软件包，AutoCAD 的强大生命力在于它的通用性、多种工业标准和开放的体系结构，其通用性使得它在机械、电子、航空、船舶、建筑、包装、服装等领域得到了极为广泛的应用。但是由于Au-toCAD 软件都不可能解决某行业用户在产品设计与制造中的全部
问题，所以在AutoCAD 应用领域，更多的用户和技术人员要在基于AUTOCAD 的基础上，针对企业或行业的特殊需要进行二次开
发，以满足本企业或某行业在产品设计、制造上的特殊要求，或者针
对AutoCAD 的某个应用领域进行专门软件开发，
以完成特殊的造型、计算、分析等专业应用要求。
一、AutoCAD VBA 简介
Microsoft VBA 是一个面向对象的编程环境，
可提供类似Visu-al Basic(VB)的丰富开发功能。VBA 和VB 的主要差别是VBA 和AutoCAD 在同一进程空间中运行，提供的是具有AutoCAD 智能
的、非常快速的编程环境。VBA 可提供强大的窗体创建功能，
为应用程序建立对话框及其他屏幕界面，可建立功能强大的模块级宏指令，提供类模块创建功能，利于组件重用，具备完善的数据访问与管理能力。
在AutoCAD 中实现VBA 有四大优点：1.Visual Basic 编程环境易于学习和使用。
2.VBA 可与AutoCAD 在同一进程空间中运行，
这使程序执行得非常快。
3.对话框的构造快速而有效。这使开发人员可以构造原型应用程序并迅速收到设计的反馈。
4.工程可以是独立的，也可以嵌入到图形中。这样就为开发人员提供了非常灵活的方式来发布他们的应用程序。
二、获取VB 对AutoCAD 的控制权
首先要获取对AutoCAD 的控制权，然后才能有效地运用VB 编程方式进行AutoCAD 的基本绘图操作，否则，接下来的各种对AutoCAD 的操作将无法得以实现。
先定义变量acadApp,acadDoc
Public acadApp As AcadApplication Public acadDoc As AcadDocument Function boot_CAD()As Boolean
On Error Resume Next
Set acadApp =GetObject(,"AutoCAD.Application")If Err Then
Err.Clear
Set acadApp =CreateObject("AutoCAD.Application")If Err Then
MsgBox "您没有安装AutoCAD ，或安装版本
错误！",vbOKOnly +vbInformation,"CAD 简易绘图系统"
boot_CAD =False Bt OK =False Exit Function
End If
End If
Set acadDoc =acadApp.ActiveDocument acadApp.Visible =True boot_CAD =True End Function
三、应用VBA 编写输入基圆半径和展角上限绘制渐开线的参数化程序
渐开线为常用工程曲线，
在VBA 中可采用样条曲线拟合的方法绘制渐开线。
图1直角坐标系下的渐开线
在如图1所示的直角坐标系Oxy 中，
(1)
式中，
—
形成渐开线的基圆半径；—用弧度表示的渐开线上K 点对应的展角，且。渐开线的切线方向可用其斜率（导数）表示，即
()(2)
应用VBA 程序绘制样条曲线的方法为：AddSpline(PointsAr-ray,StartTangent,EndTangent)，其中，PointsArray 为样条曲线（渐开
线）拟合点的3维坐标组成的列表（即数组，必须为3的倍数）
，StartTangent ，EndTangent 为样条曲线的起点和终点切向向量（必需
为3元素列表，切向必需与曲线的走向一致）
。起点的切向竖直向上，可取(0,1,0)；根据式(1-2)可知终点的切向为。
可根据精度要求将所绘渐开线的展角上限等分为J 个区间（程序中取J=10），应用For …Next 循环计算拟合点的坐标。首先按下式计算展角：
，(j=0,1,2,…,J)
(3)
再用式(1)计算点K 的坐标(x Kj ,y Kj )。
îí
ì+=-=)
sin (cos )cos (sin q q q q q q b b r y r x b r q 00q q ££q q
q
cot d /d d /d d d ===
¢x y x y y 0>q AutoCAD 二次开发及应用研究
■孙运平
高玉春安徽新闻出版职业技术学院
[摘要]计算机辅助制图是现代企业生产和设计的重要工具，但不可能解决用户在产品设计与制造中的全
部问题，必须使用到AutoCAD 二次开发技术。本文结合实例讲述了如何利用VBA 编程进行AutoCAD 的二次开发。
[关键词]AutoCAD VBA 二次开
发
J /Δ0q q =，q q Δ×=j j  )0,cot ,1(q 0q 102
. All Rights Reserved.
《商场现代化》2012年4月（上旬刊）总第679
期
图2绘制渐开线的窗体
绘制渐开线及基圆的窗体如图2所示，
程序如下：Private Sub cmdOK_Click()
ThisDrawing.Application.Documents.Add pi =4*Atn(1)’定义常数πDim rb As Double ’定义基圆半径Dim theta0As Double ’定义渐开线展角Dim InvPoint(0To 32)As Double ’定义拟合点坐标Dim SPtan(0To 2)As Double ’定义起点切线方向Dim EPtan(0To 2)As Double ’定义终点切线方向Dim InvObj As AcadSpline ’定义Spline 对象rb =txtRb.Text
theta0=txtTheta0.Text *pi /180’将角度转换为弧度delta_theta =theta0/10For j =0To 10
theta =j *delta_theta
InvPoint(j *3)=rb *(Sin(theta)-theta *Cos(theta))InvPoint(j *3+1)=rb *(Cos(theta)+theta *Sin(theta))InvPoint(j *3+2)=0Next j
SPtan(0)=0:SPtan(1)=1:SPtan(2)=0
EPtan(0)=1:EPtan(1)=1/Tan(theta0):EPtan(2)=0’设置Spline 对象
Set InvObj =ThisDrawing.ModelSpace.AddSpline(InvPoint,
SPtan,EPtan)’绘制基圆
Dim CirObj As AcadCircle ’定义Circle 对象Dim CenPoint(0To 2)As Double ’定义圆心坐标CenPoint(0)=0:CenPoint(1)=0:CenPoint(2)=0
’设置Circle 对象
Set CirObj=ThisDrawing.ModelSpace.AddCircle (CenPoint,
rb)
ThisDrawing.SaveAs (“D:\Draw_Inv.dwg ”)End Sub 四、结语
基于VBA 的AutoCAD 二次开发技术，可以实现AUTOCAD
功能的拓展及参数化没计，
可以更好d 地满足机械、电子等行业系列化产品的专业设计，能最大限度地满足用户的特殊要求，
更方便、更规范、更专业的实现设计和绘图中的应用。
参考文献:
[1]谢安俊，乔韡韡.计算机辅助设计二次开发案例教程[M].北京：北京大学出版社,2009
[2]刘言松，贺炜.AutoCAD2009中文版二次开发实例教程[M].北京：化学工业出版社
,2009
一、引言
高校肩负着科学与技术人才培养的责任，是国家经济发展和社会进步的重要推动力量。随着我国高等教育改革的不断深入，人才培养目标逐渐从知识掌握转变为学习能力的提升。如何从现有教学资源中快速获取知识，成为学生学习能力和未来发展潜质的重要评价指标。自主式教学正是这种教育理念的贯彻，它转变他主的、被动的学习状态，提倡学生学习过程的主体性、
能动性、独立性，培养学生自主探究、
收集整理分析资料，获取新知识，进而分析和解决问题的能力。
自主式教学包括课堂教学和实验教学两个方面，其课堂教学模式探讨已经比较深入，形成了较为完善的理论体系，人们的研究重点逐步转移到自主式实验教学领域，开展了一系列的对
比性研究。从自主式实验项目的设置形式角度，丁琰鋆在《会计
电算化》课程中研究单个项目教学问题，证实了项目模式适合实
践性和操作性较强的技能知识学习；
相反，陈丽文侧重综合性实验课自主式教学，指出必须从课程设置上保证时间、从硬件上保障场地和经费。从自主式实验的开放特征角度，彭鹏菲分析自主式实验教学面临的问题，比较了自主研究实验教学与开放式实
验教学的区别，提出了自主研究实验教学体系结构，
通过提高自主研究实验教学能力，以促进创新型人才培养的全面发展。这些研究从不同侧面给出了自主式实验教学的具体实践，也阐述了
其来源问题、教学组织、教学环境、
推广问题，可惜并未清晰阐释学生进行知识获取原理和过程。本文将结合知识获取理论，
探讨高校实验教学存在的典型问题，系统性分析自主式实验教学的关键要素，并提出自主式实验教学环境下的知识获取的一般模式。
二、实验教学问题与知识获取的关系当前，高校经管类实验教学主要存在的以下三类问题，一是
教学目标强调实际动手能力培养，
需要融合基本知识；二是教师对学生实际遇到的问题指导不足；
三是学生按部就班的操作，不能灵活处理新问题，存在应付心理。这些问题产生的根源以及怎样解决这些问题，成为经管类学科专业提升实验教学质量和效果的关键。
高校经管类自主式实验教学环境下的知识获取模式研究
■张庆华
付金龙郑雪峰黑龙江科技学院
项目支持：(1)黑龙江省高教学会“十二五”教育科学研究规划课题：基于ERP 的财务一体化仿真实训平台，课题批准号：HGJXGB 2110875
(2)黑龙江科技学院学校教学改革项目支持，项目名称“自主式实训教学环境下的知识转移效果研究”，编号JY10-26
[摘要]本文结合知识获取理论，探讨高校经管类实验教学存在的典型问题，系统地分析自主式实验教学的关键要素，并提出自主式实验教学环境下知识获取的一般模式。
app开发实例[关键词]知识获取自主式实验
经管类实验
. All Rights Reserved.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。