Solidworks二次开发入门教程连载4：运用VB语言实现二次开发
VB简述
Visual Basic（简称为VB）是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高，Visual Basic的功能也越来越强。5.0版以后，Visual Basic 推出了中文版，与前个版本相比，其功能有了很大提升。
Visual Basic 6.0作为Visual Studio 6.0的优秀一员，已成为企业级快速开发的利器。Visual Basic 6.0在数据访问方面有了很大的改进，新的ADO组件让对大量数据快速访问成为可能。数据环境和新的报表功能也让数据开发有了全新的体验。Visual Basic 借助COM/COM+强大的功能，可以开发具有多层结构的分布式应用程序。同时，Visual Basic还可以在IIS上开发性能超群的Web应用程序。Visual Basic 6. 0在语言方面和IDE方面的改进都不大，但是许多新增的组件成为Visual Basic开发人员手中的利器，如File System Object等。新的字符串函数Split和Replace等也给Visual Basic的程序员带来很大方便。
Visual Basic 6.0具有下述优点:
(1) 面向对象
(2) 事件驱动
(3) 软件的集成式开发
(4) 结构化的程序设计语言
(5) 强大的数据库访问功能
(6) 支持对象的链接与嵌入技术
(7) 网络功能
(8) 多个应用程序向导
(9) 支持动态交换、动态链接技术
(l0) 联机帮助功能
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。它不像高级语言Visual C++那麽复杂，但它的功能很全，程序员可以轻松的使用VB提供的组件进行二次开发，快速建立属于自己的应用程序。
2 利用VB实现圆台交互式绘制的实现过程
2.1 启动VB程序
启动VB程序，VB6.0的主窗口如图1所示，可以直观地看到主窗体主要有以下部分组成：标题栏；菜单栏；工具栏；窗体设计器；控件（工具）箱；弹出式（上下文）菜单；工程管理器窗口；属性窗口；对象浏览器；对象浏览器及窗体布局窗口。
建立一个新的标准EXE工程文件，对其进行重命名保存，重命名为"圆台绘制"，将Form窗体文件重命名保存为"交互式圆台绘制"，如图2所示。特别需要注意的一点是：在标题栏显示的当前的工程名及窗体名是通过修改属性窗口中"名称"属性及"caption"属性得以实现的，与实际的工程名及窗体名并无直接联系，实际的工程名及窗体名是通过诸如"（圆台绘制.vbp）"形式体现出来的。
图1 VB6.0主窗口
图2 重命名操作后的工程资源管理器
2.2 引用Solidworks类型库文件
要操作SW对象，那么添加SW引用是必不可少的。在VB里添加引用，单击菜单栏中【工程】【引用】命令，选择"SolidWorks exposed Type Libraries For add-in Use"(SolidWorks插件库文件)、"SolidWor ks 2007 Type Libray"（SolidWorks库文件）和"SolidWorks Consant Type library"（SolidWorks常数库），如图3所示。本文其实只用到了"SolidWorks 2007 Type Libray"（SolidWorks库文件），但为了方便以后的程序扩展，将上述三种常用库文件一并添加。
图3 引用SolidWorks类型库
2.3 编辑窗体界面
（1）拖动工具箱组件板上的Lable控件、TextBox控件及CommandButton控件到Form上。
（2）接下来在属性窗口将Lable1、Lable2的属性分别设置为"圆台半径："、"圆台高度："；将Comm andButton1、CommandButton2的属性分别设置为"启动SolidWorks交互式绘图"、"退出SolidWorks软件"。编辑后的窗体界面如图4所示。
图4 编辑后窗体界面
2.4编程实现
在VB编程环境下，引用单元文件，创建相关函数及编写事件处理过程，实现程序功能。绘制圆台的详细程序代码及其注释如下所示：
Private Sub Command1_Click()
Dim swapp As Object
Dim part As Object
Dim boolstatus As Boolean
"定义接口
Set swapp = CreateObject("SldWorks.Application")
Set part = swapp.NewPart()
swapp.Visible = True
"获取solidworks软件接口并新建一个零件文件
part.InsertSketch2 True
boolstatus = part.Extension.SelectByID("前视", "PLANE", 0, 0, 0, False, 0, Nothing)
part.InsertSketch2 True
part.CreateCircle 0, 0, 0, 0, Val(R.Text) / 10005, 0
part.ShowNamedView2 "*上下二等角轴测", 8
part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(H.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
"建立模型
End Sub
点击"启动SolidWorks交互式绘图"后，程序调用SolidWorks自动绘制的圆台三维图如图5所示。可交互式修改参数，直至达到满意的效果。操作完成后点击"退出SolidWorks环境"可以自动关闭并退出Solid Works环境。
图5 交互式绘图后结果
3 小结
本文同样以一个简单实例的实现过程为例，采用VB语言编制了相关程序，详细介绍了二次开发的具体实现过程，给出了重要文件的引用、属性设置、接口程序的编制和事件处理等过程的完整代码。通过上述实例的实现过程，可以看出：VB语言简单易学，学习过程中很容易上手；功能齐全，程序员可以轻松的使用VB提供的组件进行二次开发，快速建立属于自己的应用程序，在其各项高效强大集成功能的支持下，最终可方便快速地完成二次开发任务。
参照连载1中的通过宏录制实现的二次开发过程，可以清楚地看到，利用VB二次开发实现圆台绘制的具体命令源代码不需要自己编写，可以直接对宏录制的相关源码拷贝过来加以利用即可，只需要修改其中的相关变量参数诸如Val(R.Text)即可，易于实现，减轻了程序员的工作量，提高了程序的开发速度。
简单说明SolidWorks API的应用
本文通过介绍“自定义属性”这个程序的开发和使用过程，来简单地说明SolidWorks API的应用，希望起到抛砖引玉的作用。
SolidWorks API是SolidWorks的OLE应用程序开发接口，用户可以利用它和支持OLE编程的开发工具，如VB、VBA(Excel,Access)、C、VC++等对SolidWorks进行二次开发，建立适合用户需要的、专用的SolidWorks 功能模块。
一、问题的提出大多数工程图纸的标题栏中应该包括一些基本的设计信息，如零件名称、零件代号、材料以及设计人员和设计日期等，其中，零件的名称、代号、材料、数量、重量及一些重要的后处理要求等信息还应该出现在装配图的材料明细表(BOM)中。这些内容如果在工程图中一一进行编写和修改，其工作量是很大的，并且这种处理方法也不利于保证设计信息的一致性，对模型文件(零件或装配体文件)和图纸文件的管理来讲是脱节的。SolidWorks是一个全相关的三维机械设计软件，模型文件中的设计数据，如尺寸、注释、文件属性等内容与工程图相关，因此，我们在处理上述工程图标题栏和材料明细表中的设计数据时，应该将这些内容保存在模型文件中，并且自动显示在工程图相应的位置上。当需要对工程图中的内容进行修改时，直接修改模型文件中的相应数据即可实现。
这样的处理方法不仅保证了设计信息的一致性，而且可以大大提高设计效率。根据这个设想，笔者将这些设计信息进行了归纳，并将它们作为模型文件的自定义属性保存在模型文件指定配置的属性(在Solid Works中，选择菜单“文件→属性”，单击“指定配置”标签，如图1所示)中，针对模型文件指定配置的这些属性可以自动带入到工程图的标题栏和材料明细表。
对于材料明细表模板进行修改或建立新的明细表模板就可以在装配图中的材料明细表中显示所需要的设计信息(工程图格式文件的定义和材料明细表模板的定义，请参阅《SolidWorks2001中文版实用技术精粹》一书)。因此，无论何时需要修改设计信息，只需在SolidWorks中打开相应的模型文件，修改指定配置属性即可。然而，即使采用这样的处理方法，在修改文件当前配置属性时仍然显得有些繁琐，能否为SolidWor ks建立一个工作界面，可以更加方便地添加和修改这些信息就成了问题的关键。
二、自定义属性Cpbom 为了更大程度地提高工作效率，我们利用VB6.0通过SolidWorks API建立了自定义属性设置程序——Cpbom，这个程序通过一个对话界面直接对当前模型文件的当前配置进行添加或修改，其基本功能如下：
☆针对配置添加模型文件的自定义属性;
☆设置的项目包括：零件代号、材料名称、后处理、设计者姓名、设计日期;
☆确定自定义属性后，自动保存文件;如当前文件还没有保存，提示文件保存路径和文件名称;
☆针对装配文件，可以选择是否删除“材料”和“后处理”两个属性。本程序利用VB进行编译生成可执行文件。自定义属性界面“自定义属性”程序就是通过SolidWorks API对当前模型文件中当前配置的自定
义属性的名称和值进行“读”和“写”的操作，程序非常简单，这里介绍一下该程序中用到的一些SolidWorks API的对象和方法。
1.SolidWorks对象这里指的是SolidWorks API的最高级别的对象。通过该对象可以控制SolidWorks软件的执行或退出，以及SolidWorks文件的建立、打开、关闭等操作。在VB中利用CreateObject方法来获得SolidWorks对象，利用该对象的activedoc方法可以获得当前SolidWorks文件对象，文件对象为空时，表示SolidWorks 没有打开任何文件。
Dim swApp As ObjectDim
activeDocument As ObjectSet swApp=CreateObject("SldWorks.Application")
Set activeDocument = swApp.activedocIf (activeDocument Is Nothing) Then Dim Msg, Style, title St yle = vbExclamation
title = "模型自定义属性"
Msg = "请首先打开一个Solidworks模型文件"
Call MsgBox(Msg, Style, title) ' Display error message
End
End If
2.获取当前文件信息自定义属性程序是对模型文件设置自定义属性，与工程图文件无关，因此需要利用GetType方法获得当前文件的类型，并利用Gettitle()方法和Getpathname()方法获得当前文件的名称和存盘路径。
Dim docType As LongDim
docName As StringDim
filename As StringDim
FilePath as StringdocType = activeDocument.
GetTypeIf (docType = swDocPART)
Then docName = "零件"With CPbomfrm .deldescription.Enabled = False .delmaterial.Enabled = False End With Picture5.Picture = Picture3.Picture
ElseIf (docType = swDocASSEMBLY) Then docName = "装配" Picture5.Picture = Picture2.Picture
ElseIf (docType = swDocDRAWING) Then Style = vbExclamation Msg = "当前文件是工程图文件，请打开零件或装配文件"
Call MsgBox(Msg, Style, title) ' Display error message
End
End
If filename = activeDocument.GETTITLE()
FilePath = activeDocument.getpathname()
3.获取文件配置名称SolidWorks API提供了按照配置名称访问自定义属性的方法——CustomInfo2(读取自定义属性的值)、deletecustominfo2(删除指定的自定义属性)、ADDcustominfo3(添加自定义属性的名称和参数值)，这些方法都要求指定文件的配置名称。因此，为了对当前模型文件和当前配置设定自定义属性，必须首先要获得当前配置的名称，利用GetActiveConfiguration()方法可以获得当前模型文件配置的对象，并利用Name方法获得当前配置的名称。
Dim ConfName As StringSet
CurCFG = activeDocument.GetActiveConfiguration()
ConfName = https://www.doczj.com/doc/ed3702095.html,
4.按照配置访问自定义属性在本程序中，笔者对于指定配置的属性设置按照如下的步骤：
(1)按照配置名称读取文件中的自定义属性值，并赋值于相应的文本框;
(2)判定当前文件和当前配置是否已经改变，如其中之一发生变化，则提示错误信息;
(3)根据配置名称删除指定的自定义属性;
(4)将相应文本框中的内容按照配置名称添加到模型文件自定义属性名称和参数值。下面对上述控制配置自定义属性的三种方法加以介绍。
☆CustomInfo2：获取或设置当前文档指定配置的自定义属性的值。
value = ModelDoc.CustomInfo2 (configuration, fieldName)
其中，configuration为配置名称;
fieldName为自定义属性的名称。
☆deletecustominfo2：删除当前文档指定配置的自定义属性的值
retval = ModelDoc.DeleteCustomInfo2(configuration, FieldName )
☆ADDcustominfo3：向当前文档中指定的配置添加自定义属性以及值
retval = ModelDoc.AddCustomInfo3 ( configuration, FieldName, FieldType, FieldValue )
其中，FieldType为自定义属性的类型;FieldValue为自定义属性的值。
下面这段代码是单击“确定”的子程序，为了简单，只给出了其中一个自定义属性的处理过程。
Private Sub cmd_OK_Click()On Error GoTo ERR_91
Dim swApp2 As ObjectDim
activeDocument2 As ObjectDim
curcfg2 As ObjectDim
cfgname2 As StringDim
retval As BooleanSet
swApp2 = CreateObject("SldWorks.Application")
Set activeDocument2 = swApp2.activedoc
Set curcfg2 = activeDocument2.GetActiveConfiguration()
cfgname2 = https://www.doczj.com/doc/ed3702095.html,' 判断文件或配置是否改变，如改变，则提示错误。
If cfgname2 = ConfName And FilePath = activeDocument2.getpathname() Then' 删除属性设置
retval = activeDocument2.deletecustominfo2(ConfName, "PartID")' 添加属性
retval = activeDocument2.ADDcustominfo3(ConfName, "PartID", swCustomInfoText, frmPartID)' 保存文件
retval = activeDocument2.Save()
Else Style = vbExclamation
title = "模型自定义属性"
Msg = "错误：打开的文件或配置已经改变!" & Chr(10) & "请重新执行本程序"
Call MsgBox(Msg, Style, title)
End
End
IfERR_91: Style = vbExclamation title = "模型自定义属性"
Msg = "程序运行错误，文件可能已经关闭" & Chr(10) & "自定义属性无法添加，单击确定退出!"
Call MsgBox(Msg, Style, title)
End
End Sub
三、在SolidWorks界面中执行应用程序对于使用VB编译的EXE、DLL文件，目前SolidWorks还不能直接支持这些文件作为插件使用，如果要在SolidWorks 中直接调用通过VB编译的可执行程序，可以使用SolidWor ks“宏”操作来进行。利用“宏”在SolidWorks界面中添加指定的应用程序后，就好像SolidWorks 调用了自身的功能一样，利用类似的方法，可以在SolidWorks添加任何可执行的文件。下面利用“自定义属性”程序来说明一下步骤。1.建立“宏”文件在SolidWorks中，我们利用录制并修改“宏”的方法来建立所需要的“宏”文件。主要步骤如下：
(1)选择菜单“工具→宏操作→录制”。
(2)停止录制，并保存宏文件。给定文件名称，如：Cpbom.swp。
(3)选择菜单“工具→宏操作→编辑”，把Cpbom.swp “宏”文件录制的内容全部删除，并输入下面的内容。
Sub main()MyAppID = Shell("C:Program FilesCPbomCPbom.exe", 1) AppActivate MyAppID
End Sub
(4)保存并退出宏编辑，返回到SolidWorks环境。
2.指定“宏”操作在SolidWorks中可以指定宏命令的文件位置，并定制工具栏，将所执行的宏操作按钮添加到指定的位置上。
(1)选择菜单“工具→自定义→宏”，在“自定义”对话框中单击“宏”标签。
(2)参考图4的内容添加宏，单击“应用”完成。
(3)在“自定义”对话框中单击“命令”标签，从“类别”列表框中选择“宏”，将所定义的宏(第1个)的图标按钮拖到相应的工具栏中，如图5所示。
(4)单击“确定”按钮，完成宏定义和工具栏定义。
3.执行应用程序定义“宏”以后，单击相应的图标就可以在SolidWorks 中直接执行应用程序。在S olidWorks中执行应用程序四、总结笔者利用这个“自定义属性”程序，明显提高了工作效率。需要说明的是，SolidWorks API的对象和方法十分丰富，涵盖了所有SolidWorks数据模型，这里介绍的只冰山之一角。另外，程序中提及的自定义属性与企业的要求有关，根据自己的需要开发适合需要的自定义属性设置程序。
VBA入门系列讲座 1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动 化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用excel的宏语言来使excel自动化,使用word BASIC使word自动化,等等.微软决定让它开 发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是”寄生于”VB应用程序的版本.VBA和VB的区别包括如下 几个方面: 1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(excel 等)自动化 2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序. 3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序 是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的”父”应用程 序,例如excel. 尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解 了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在excel中用VBA创建解决方案后,即已具备在word access OUTLOOK 中用VBA创建解决方案的大部分知识. FOXPRO PROWERPOINT VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化. VBA可以称作excel的“遥控器”. VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案. 此外,如果你愿意,还可以将excel用做开发平台实现应用程序. 1.2 Excel环境中基于应用程序自动化的优点 也许你想知道VBA可以干什么?使用VBA可以实现的功能包括: 1. 使重复的任务自动化. 2. 自定义excel工具栏,菜单和界面. 3. 简化模板的使用. 4. 自定义excel,使其成为开发平台. 5. 创建报表. 6. 对数据进行复杂的操作和分析.
VBA 入门系列讲座 1.1 VBA 是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动 化的应用程序，人们不得不学习一种不同的自动化语言.例如:可以用excel 的宏语 言来使excel 自动化，使用word BASIC 使word 自动化，等等.微软决定让它开发出 来的应用程序共享一种通用的自动化语言 -------------------------- V isual Basic For Application （VBA ）,可以认为VBA 是非常流行的应用程序开发语言 VASUAL BASIC 的子集.实际上VBA 是”寄生于”VB 应用程序的版本.VBA 和VB 的区别包 括如下几个方面： VB 是设计用于创建标准的应用程序，而VBA 是使已有的应用程序（excel 等）自动化 VB 具有自己的开发环境，而VBA 必须寄生于已有的应用程序. 要运行VB 开发的应用程序，用户不必安装VB,因为VB 开发出的应用程 序是 可执行文件（*.EXE ）,而VBA 开发的程序必须依赖于它的”父”应用 程序， 例如excel. 尽管存在这些不同,VBA 和VB 在结构上仍然十分相似.事实上,如果你已经了 解了 VB,会发现学习VBA 非常快.相应的，学完VBA 会给学习VB 打下坚实的基 础.而且，当学会在excel 中用VBA 创建解决方案后，即已具备在 word access OUTLOOK FOX PRO P ROWER POINT 中用VBA 创建解决方案的大部分知识. VBA 一个关键特征是你所学的知识在微软的一些产品中可以相互转化 . VBA 可以称作excel 的“遥控器”. VBA 究竟是什么？更确切地讲，它是一种自动化语言，它可以使常用的程序自动 化,可以创建自定义的解决方案. 此外，如果你愿意，还可以将excel 用做开发平台实现应用程序. 1.2 Excel 环境中基于应用程序自动化的优点 也许你想知道VBA 可以干什么？使用VBA 可以实现的功能包括： 使重复的任务自动化. 自定义excel 工具栏,菜单和界面. 简化模板的使用. 自定义exceI 使其成为开发平台. 创建报表. 对数据进行复杂的操作和分析. 1. 2. 3. 1. 2. 3. 4. 5. 6.
Excel VBA基础教程两篇 篇一：Excel VBA基础教程 Excel VBA教程是把VB编程应用在Excel平台的一套实用教程，Excel +VBA双剑合壁，他可以帮助我们实现Excel原本实现不了的功能，可以让工作变得更高效，可以让操作变得变方便，可以把重复性的操作变得更有趣，随心所欲的定制自己的工作平台，还可以针对企业来开发各种系统如，人事管理系统、仓库系统、进存销系统等，对于经常要处理大量数据工作的朋友，学会了这套VBA教程你的工作将游刃有余。 标题 Excel VBA基础教程 Excel VBA基础教程 第一章：Excel VBA基础知识 1-1、Excel VBA教程简介 1-2、宏在工作中的运用
1-3、Excel VBA基础 1-4、Excel VBA窗口介绍 1-5、Excel VBA代码编写规则1-6、对象 1-7、属性 1-8、方法 1-9、常量与变量 1-10、数据类型 1-11、判断语句之IF 1-12、判断语句IF之多条件1-12B、If条件判断小结
1-13、判断语句之SELECT 1-14、循环语句之DO...LOOP 1-15、循环语句之DO...LOOP实例 1-16、循环语句之DO WHILE...LOOP 1-17、循环语句之DO UNTIL...LOOP 1-18、循环语句之WHILE与UNTIL位置变化1-18B、DO...LOOP 语法小结 1-19、.循环语句之FOR EACH...NEXT 1-20、循环语句之FOX...NEXT 1-20B、For...NEXT小结与实例 1-21、用语句FOR...NEXT制作九九乘法表
excel VBA编程入门教程 回看到“excel 编程入门教程”求助贴，不料被别人捷足先登。没想到今天又看到这个求助经 验贴，而且又有优先评优支持当然要领取了。本人也算上个世纪的编程老鸟，虽然对于当前 的主流技术不是非常精通，但是对于Excel VBA，还是略知一二的。下面就来和大家分享一 下Excel VBA编程入门经验。 工具/原料 熟练操作Excel，有一定得VB编程经验，别说你的电脑没装office啊步骤/方法 点击Windows左下方，“开始”-“程序” -“Microsoft Office”-"Microsoft Office Excel 2003", 打开Excel,如下图示。 点击按下图所示，点击菜单“工具”-“宏”-“Visual Basic 编辑器”
然后会出现“Visual Basic 编辑器”窗体，如下图示 你已经启动了VB编程环境，这就是你的编程平台。 按下图所示，点击“Visual Basic 编辑器”中的菜单“插入”-“用户窗体”
接着出现“可编辑窗体”，如下图所示 上图,红色框中所示为“可编辑窗体”，你可以在上面进行可视化编程，就类似于我们现实生活中的画布，你可以在窗体上通过左侧绿色框内的“工具箱”绘制命令按钮、文字框、标签等编程控件。你也可以通过鼠标点击红色框中窗体外围的8个的操作手柄，拖动窗体的大小，直观形象的进行可视化编程。操作手柄如下图示
红色圈内的句点就是操作手柄。当然，你也可以对窗体的显示的文字进行调整，这就需要在最左侧的属性窗口中修改它的“Caption”属性，考虑到这时编程入门，仅仅是教大家一个简单的编程流程，所以我就不多废话了。 接着，用鼠标单击左侧“工具箱”内的“命令按钮控件”，如下图所示 此时，鼠标光标会变成一个“十字准星”和“命令按钮”状，因鼠标形状无法截图，此处就不贴图了。你可以用鼠标拖动，在可编辑窗体上绘制一个任意大小的命令按钮。如下图示: 同样，这个“命令按钮”四周也有8个操作手柄，你可以用鼠标来调整它的大小。 最关键的时刻到了，马上就可以进行编程了。用鼠标双击“命令按钮CommandButton1”，会出现如下窗口
ACAD VBA初级教程第一课:入门 1.为什么要写这个教程 市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。 2.什么是Autocad VBA？ VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。 3、VBA有多难？ 相信大家都知道Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。 4、怎样学习VBA？ 介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。 5、现在我们开始编写第一个程序：画一百个同心圆 第一步：复制下面的红色代码 第二步：在模型空间按快捷键Alt+F8，出现宏窗口 第三步：在宏名称中填写C100，点“创建”、“确定” 第四步：在Sub c100()和End Sub之间粘贴代码 第五步：回到模型空间，再次按Alt+F8，点击“运行” Sub c100() Dim cc(0 To 2) As Double '声明坐标变量 cc(0) = 1000 '定义圆心座标 cc(1) = 1000 cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆 Next i End Sub 也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。 第二课编程基础 本课主要任务是对上一课的例程进行详细分析 下面是源码： Sub c100() Dim cc(0 To 2) As Double '声明坐标变量 cc(0) = 1000 '定义圆心座标 cc(1) = 1000 cc(2) = 0 For i = 1 To 1000 Step 10 '开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆 Next i End Sub 先看第一行和最后一行： Sub C100() …… End Sub C100是宏的名称，也叫过程名称，当用户执行C100时程序将运行sub和end sub之间的所有指令。 第二行： Dim cc(0 To 2) As Double '声明坐标变量 后半段“'声明坐标变量”自动变为绿色字体，它是代码语句的注释，它不会影响程序运行，它的作用是告诉阅读者程序员的想法。对于简单的程序，一般不需要写注释，如果要编写非常复杂的程序，最好要多加注
Solidworks实用入门教程二 教你画一个玻璃花瓶这一课主要学习正多边形、转换实体应用、等距实体、旋转实体、放样拉伸和切割以及修改零件外观。 1 首先新建一个零件，在前视基准面建立一个草图。单击多边形，边数改为8，用内接圆直径控制八边形大小。直径 改为60mm，退出草图。 2 建立一个与前视基准面平行的距离为200mm的基准面，在这个面上建立草图。然后选择转换实体应用。这个是做什 么的捏？简单说就是把已经画好的实体的部分拿过来用，相 当于复制粘贴。选择另一个草图上的刚刚画好的八边形的各 个边，然后现在的草图上也出现了一模一样的八边形。
3 选择等距实体，修改距离为10mm，单击八边形，再单击外侧，然后就出现了比刚才的八边形大一圈的大八边形。 4 小八边形没用了，把它删了。点移动实体旁边的下拉箭头出现列表单击旋转实体。选择刚刚画的大八边形各个边线，旋转中心选择八边形中心，角度为22.5°。转好了就退出草
图。 5按住ctrl键选择草图1草图2，然后单击放样凸台/基体。然后就出现了基本的外形，哇咔咔哈利路亚。
6 在前视基准面建立草图3，采用转换实体应用复制草图 1 的小八边形，然后用等距实体画一个更小1mm的八边形。把大八边形删了，退出草图。在基准面 1 建立草图4，用相似的方法，建一个比草图2小1mm的八边形，退出草图。 7 选择草图 3 草图4 单击放样切割
切完了长这个样子 8 然后我们给它封底。在前视基准面建立草图 5.转换实体应用复制草图1的八边形。然后把它反向拉伸2mm。现在它长这样。
9更改它的外观。选择上方的图标进行外观设计。更改颜色、透明度等参数。
Excel VBA数组入门教程集合 1. 前言：不要把VBA数组想的太神秘，它其实就是一组数字而已。 2. 数组的维数： Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) '创建一个可以容下10行3列的数组空间 For x = 1 To 4 For y = 1 To 3 arr(x, y) = Cells(x, y) '通过循环把单元格区域a1:c4的数据装进数组中 Next y Next x MsgBox arr(4, 3) '根据提供的行数和列数显示数组 arr(1, 2) = "我改一下试试" '你可以随时修改数组内指定位置的数据 MsgBox arr(1, 2) End Sub 总结：二维是由行和列表示的数组，如ARR(3,2)表示数组中第3排第2列的元素。而一维数组只是由一个元素决定，如ARR（4）表示数组中第4个元素 3. 把单元格数据搬入内存： 一、声明： Dim arr as Variant '声明一个变量，不能声明其他数据类型 Dim arr(1 to 10, 1 to 2) , 这种声明也是错误的，固定大小的VBA数组是不能一次性装入单元格数据 或：dim arr()这种声明方式是声明一个动态数组，也可以装入单元格区域，构成一个VBA数组。 二、装入 arr =range("a9:c100") '装入很简单，变量 = 单元格区域 三、读出 装入数组后的单元格数值，可以按数组名称(行数，列数) 直接读取该位置的值，如下面的代码。 Msgbox arr(3,2) '就可以取出搬过去的而构成的数组第3行第2列的内容 四、示例 Sub s3() Dim arr() '声明一个动态数组（动态指不固定大小） Dim arr1 '声明一个Variant类型的变量
Autocad VBA初级教程 (第二课编程基础) Autocad VBA初级教程 (第三课编程基础二) Autocad VBA初级教程 (第四课程序的调试和保存) Autocad VBA初级教程 (第五课画函数曲线) Autocad VBA初级教程 (第六课数据类型的转换) Autocad VBA初级教程 (第七课写文字) Autocad VBA初级教程 (第八课:图层操作) Autocad VBA初级教程 (第九课:创建选择集) 18 Autocad VBA初级教程 (第十课:画多段线和样条线) 20 Autocad VBA初级教程 (第十一课:动画基础) 23 Autocad VBA初级教程 (第十二课:参数化设计基础) 26
Autocad VBA初级教程(第一课:入门) 1.为什么要写这个教程 市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也慢慢生疏了，写个教程对自己来说也是一次复习。 2.什么是Autocad VBA？ VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。 3、VBA有多难？ 相信大家都知道Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。 4、怎样学习VBA？ 介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。本教程将陆续发布在CAD 世界论坛上，您不需要付费就可以学习。本作者在此郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。我不会发到任何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。 5、现在我们开始编写第一个程序：画一百个同心圆 第一步：复制下面的代码 第二步：在模型空间按快捷键Alt+F8，出现宏窗口 第三步：在宏名称中填写C100，点“创建”、“确定” 第四步：在Sub c100()和End Sub之间粘贴代码 第五步：回到模型空间，再次按Alt+F8，点击“运行” Sub c100() Dim cc(0 To 2) As Double '声明坐标变量 cc(0) = 1000 '定义圆心座标 cc(1) = 1000 cc(2) = 0 For i = 1 To 1000 Step 10 '开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆 Next i End Sub 也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。
Solidworks基础入门教学（二）入门课程——上 §2.1 检查系统设置第二章入门课程 在我们还没有打开或新建任何文件之前，我们来看以下系统设置。 我们可以根据自己的使用习惯或自己国家的标准进行必要的设置。下面分别简单说明如下： 1.一般： 标注尺寸时输入尺寸值：当标注尺寸时，出现输入尺寸对话框，提示输入尺寸值。 在资源管理器中显示图标：将文件的摸样在IE中显示。 使用英文：使用英文菜单。 2.工程图： 设置局部视图的比例 3.显示默认边界：设置工程图默认的视图及切边的显示方法 4.区域剖面线：定义默认的剖面线的类型 5.颜色：按自己的习惯定义工作方式的颜色 6.草图：在绘制草图时，需要设置的项目 7.性能 8.外部参考引用 9.默认模板：定义模型、图纸、装配的默认模板文件 10.文件位置：定义默认的特征调色板、零件调色板、图纸格式文件等的位置 11.FeatureManager 12.选项框增量值：定义选项框增量值 13.视图旋转：定义使用方向键和鼠标进行旋转的角度增量 14.备份：定义备份文件的位置以及版本数量
§2.2 建新零件文档为了生成一个新的零件图,单击工具条上的"新建"按扭 零件是缺省值，所以单击确定。或双击零件图标。一个新的零件图窗口出现了。 §2.3 建一个草绘 一般来讲，零件设计是从草绘开始。 第一部：开始 ●要打开一个草绘界面，单击草绘工具条上的草绘按扭，这样就在基准面1上建立一个草绘界面。（注：Plane1是特征管理器设计树中三种默认值的一种）。 ●注意以下方面： a) 草绘网格和原点的显示。
b) 草绘工具草绘约束工具条的显示。 c) 在屏幕底部状态栏右侧显示："正在编辑：草图" d) 在特征管理器设计树中显示自动添加的名称"草图1"。 第二部：画矩形 我们要做的第一个特征是从草绘中的矩形延伸而得到来的箱体。你从矩形的草绘开始。 第一个特征：矩形草绘到立方体 点击矩形工具或选择菜单工具，草图绘制实体，矩形， 注意此时的鼠标变成下图的摸样，说明此时你正在绘制的是矩形. 将光标指向原点（草绘原点是默认的三参考平面的交点），按下鼠标，拖动鼠标，形成需
EXCEL VBA应用教程－－第1讲什么是EXCEL VBA 第1讲什么是EXCEL VBA 作者：https://www.doczj.com/doc/ed3702095.html,/landmao 1.1 为什么要学习EXCEL VBA 现在，财务软件已经趋于普及，会计人员的工作效率大幅度提高，减轻了会计人员大工作强度。财务软件但优点是从数据但输入、处理、输出实现了一体化，在会计数据但利用方面，尽管财务软件一直都作改进，但客观上还是满足不了管理工作但要求。因此，作实际工作中，EXCEL被大量应用，EXCEL但特点是简单易用，操作灵活，大大地弥补了会计软件地不足。但是，EXCEL处理数据的缺点是，每一步都要人工操作和控制，对重复性的工作，每次都要重复去作。 EXCEL VBA能够将重复的工作编写成程序，这样就能够提高效率和避免人为操作的错误。 1.2 什么是VBA VBA(Visual Basic For Applications)是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。VBA是Visual Basic的一个子集,VBA 不同于VB，原因是VBA要求有一个宿主应用程序才能远行（需要在EXCEL等软件的运行下才能运行），而且不能用于创建独立应用程序。而VB可用于创建独立的应用程序。VBA可使常用的过程或者进程自动化，可以创建自定义的解决方案，最适用于来定制已有的桌面应用程序。 通常意义上的VBA就是在Office中包含着的一种加强Office功能的Basic 语言。经过发展，在Office中，Word、Excel、Access、PowerPoint等个软件都有了自己的程序设计语言，分别称为WordBasic、ExcelBasic、AccessBasic、PowerPointBasic (在Outlook中的开发语言为Visual Basic Scripting Edition)。通常统一称为VBA（VB for Application）。 本讲座，主要基于EXCEL VBA进行讲解。 VBA和VB的区别包括如下几个方面: （1） VB是设计用于创建标准的应用程序,而VBA是在已有的应用程序(EXCEL 等)下运行，实行有关操作、处理、查询等的自动化，提高效率。 （2）VB具有自己的开发环境,而VBA必须寄生于已有的应用程序（如EXCEL）。 （3）要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),可独立运行。而VBA开发的程序必须依赖于它的"父"应用程序,例如EXCEL，如编写的EXCEL VBA程序，没有安装EXCEL是无法运行的。
Excel VBA数组入门教程 1. 前言：不要把VBA数组想的太神秘，它其实就是一组数字而已。 2. 数组的维数： Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) '创建一个可以容下10行3列的数组空间 For x = 1 To 4 For y = 1 To 3 arr(x, y) = Cells(x, y) '通过循环把单元格区域a1:c4的数据装进数组中 Next y Next x MsgBox arr(4, 3) '根据提供的行数和列数显示数组 arr(1, 2) = "我改一下试试" '你可以随时修改数组内指定位置的数据 MsgBox arr(1, 2) End Sub 总结：二维是由行和列表示的数组，如ARR(3,2)表示数组中第3排第2列的元素。而一维数组只是由一个元素决定，如ARR（4）表示数组中第4个元素
3. 把单元格数据搬入内存： 一、声明： Dim arr as Variant '声明一个变量，不能声明其他数据类型 Dim arr(1 to 10, 1 to 2 ) , 这种声明也是错误的，固定大小的VBA数组是不能一次性装入单元格数据 或：dim arr() 这种声明方式是声明一个动态数组，也可以装入单元格区域，构成一个VBA数组。 二、装入 arr =range("a9:c100") '装入很简单，变量= 单元格区域 三、读出 装入数组后的单元格数值，可以按数组名称(行数，列数) 直接读取该位置的值，如下面的代码。 Msgbox arr(3,2) '就可以取出搬过去的而构成的数组第3行第2列的内容 四、示例 Sub s3()
在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。 1.Sub ChartAdd() 2. Dim myRange As Range 3. Dim myChart As ChartObject 4. Dim R As Integer 5. With Sheet1 6.. 7.R = .Range("A65536").End(xlUp).Row 8.Set myRange = .Range("A" & 1 & ":B" & R) 9.Set myChart = .(120, 40, 400, 250) 10.With 11..ChartType = xlColumnClustered 12..SetSourceData Source:=myRange, PlotBy:=xlColumns 13..ApplyDataLabels ShowValue:=True 14..HasTitle = True 15.. = "图表制作示例" 16.With . 17. .Size = 20 18. .ColorIndex = 3 19. .Name = "华文新魏" 20.End With 21.With . 22. .ColorIndex = 8 23. .PatternColorIndex = 1 24. .Pattern = xlSolid 25.End With 26.With . 27. .ColorIndex = 35 28. .PatternColorIndex = 1 29. .Pattern = xlSolid 30.End With
EXCEL编程初学者教程 新术语：“宏”，指一系列EXCEL能够执行的VBA语句。 以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤： 1)打开新工作簿，确认其他工作簿已经关闭。 2)选择A1单元格。调出“常用”工具栏。 3)选择“工具”—“宏”—“录制新宏”。 4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。 ★宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。 5)选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确定”。 6)单击“停止录制”工具栏按钮，结束宏录制过程。 ※如果“停止录制”工具栏开始并未出现，请选择“工具”—“宏”—“停止录制”。 录制完一个宏后就可以执行它了。 1.4 执行宏 当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便，还能使你获得一些使用EXCEL 标准命令所无法实现的功能。而且，一旦熟悉了EXCEL的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。要执行刚才录制的宏，可以按以下步骤进行： 1）选择任何一个单元格，比如A3。 2）选择“工具”—“宏”—“宏”，显示“宏”对话框。 3）选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。 1.5 查看录制的代码 到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好,让我们看看VBA的语句吧. 1）选择“工具”—“宏”—“宏”，显示“宏”对话框。 2）单击列表中的“改变颜色”,选择“编辑”按钮。 此时，会打开VBA的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）