已解决问题
关于CAD基于VBA二次开发的问题
Private Sub CommandButton24_Click()
Dim A As String
Dim B As String
Dim C As String
Dim D As String
Dim E As String
Dim F As String
Dim G As String
Dim H As String
Dim I As String
'设定以上A&I为字符
Dim VarRet As Variant
Dim PT1(0 To 2) As Double
Dim DCC As AcadBlockReference
'设定一个自定点,为非标准使用
If Label6 = &平头加硬自攻& Then
E = &D:YZ_ZCADTKAZG&
If Label6 = &圆头加硬自攻& Then
A = &BYBZ&
E = &D:YZ_ZCADTKBYZG&
If Label6 = &平头公制螺丝& Then
E = &D:YZ_ZCADTKCPG&
If Label6 = &圆头公制螺丝& Then
E = &D:YZ_ZCADTKDYG&
If Label6 = &平头不锈钢自攻& Then
E = &D:YZ_ZCADTKPBZ&
If Label6 = &圆头不锈钢自攻& Then
E = &D:YZ_ZCADTKFYBZ&
If Label6 = &机米螺丝& Then
E = &D:YZ_ZCADTKGJM&
'根据设定当前螺丝的种类来决定A与E的字串符文字
C = TextBox1.Text
If TextBox1.Text = && Then
C = Label9.Caption
Label9.Caption = TextBox1.Text
Label7.Caption = TextBox1.Text
'如果输出入框为空，则忽略输入框，如果输入框非空，则显示输入框文本
B = Label8.Caption
D = A + B + C
I = &.dwg&
'设定各字母的值，以后路径及判定用 问题补充：&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
ThisDrawing.SendCommand &ORTHOMODE 0& & vbCr
ThisDrawing.SendCommand &-insert& & vbCr
ThisDrawing.SendCommand H & vbCr
ThisDrawing.SendCommand &0,0,0 1 1 0 &
ThisDrawing.SendCommand &move L
此段是在以后的一段代码,CAD执行CAD标准命令,我想直接改为用VBA中的插入模块进行调用,整个函要如何改呢?
你是不是这个意思,在按扭上不能用呀
Sub ZhInsertingABlock()
Dim DCC As AcadBlockReference
Dim VR As Variant
Dim PO(0 To 2) As Double
VR = Utility.GetPoint(, &请指定放置点:
PO(0) = VR(0)
PO(1) = VR(1)
PO(2) = VR(2)
Set DCC = ThisDrawing.ModelSpace.InsertBlock _
(insertionPnt, &D:.dwg&, 1#, 1#, 1#, 0)
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
http://user.qzone.qq.com//blog/
浏览次数：960
用手机阿里扫一扫
最满意答案
这是在VB窗口中调用CAD模块(直接找答案不好找),你可以去找找这类书来看看,方法上,如果是有其它类似的;也可以用&
答案创立者
以企业身份回答&
正在进行的活动
生意经不允许发广告，违者直接删除
复制问题或回答，一经发现，拉黑7天
快速解决你的电商难题
店铺优化排查提升2倍流量
擅长&nbsp 店铺优化
您可能有同感的问题
扫一扫用手机阿里看生意经
问题排行榜
当前问题的答案已经被保护，只有知县（三级）以上的用户可以编辑！写下您的建议，管理员会及时与您联络！
server is ok朋友你好，我也做SolidWorks二次开发，用的是自带的VBA程序。程序已编好，就是不会做插件，你能帮帮我吗_百度知道
朋友你好，我也做SolidWorks二次开发，用的是自带的VBA程序。程序已编好，就是不会做插件，你能帮帮我吗
我有更好的答案
如果你的程序只是自己用的话，做成 “宏按钮” 就可以了。使用时跟其他工具栏按钮一样，点击后执行指定的VBA程序。帮助里搜一下 “宏按钮”，就可以看到详细的说明如果你想做标准的插件，那么就不能用VBA了。你需要单独安装 SolidWorks API SDK，安装之后会在 Visual Studio 中添加SW插件项目的向导。通过向导可以适当减少作业量，但对于新手来说，要真正做一个插件还是比较复杂的。
宏按钮还是操作比较多，做插件好用一点。安装 SolidWorks API SDK后，启动Visual Studio 没找到有SW插件项目的向导。
不同版本的API SDK支持不同版本的VS，所以没自动添加向导也是可能的。实际上不通过向导完全可以创建插件项目。相关的方法可以自己查看帮助，在SW的API帮助中搜索关键字 “Addin”如果你在SW的官方网站上有注册账号，那么应该还可以下载到范例。以我个人经验，对于初次者，宏按钮的创建比制作插件简单100倍。本人也是业余水平，对于插件方面没有更多能帮你的了
采纳率：44%
为您推荐：
其他类似问题
二次开发的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2217|回复: 2
cad二次开发中VB或VBA的应用问题
阅读权限20
TA的每日心情奋斗 00:08签到天数: 16 天[LV.4]偶尔看看III
简体中文繁體中文
欢迎加入，注册成为会员，享用更多功能，完全免费。
才可以下载或查看，没有帐号？
1、如何在 VB 中连接 AutoCAD。
启动 VB ，引用 AutoCAD 类型库。操作步骤：从“工程”菜单中选择“引用”选项，启动“引用”对话框。在“引用”对话框中，选择 AutoCAD 类型库，然后单击“确定”。
2、定义模块级变量 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc)。
如果 AutoCAD 正在运行，使用 GetObject 函数将检索 AutoCAD Application 对象。如果 AutoCAD 没有运行，使用 CreateObject 函数试图创建一个 AutoCAD Application 对象。如果创建成功，会启动 AutoCAD；如果失败，则会发生错误。
同时运行多个 AutoCAD 任务时，GetObject 函数会返回 Windows 运行对象表中的第一个 AutoCAD 实例。
要显示 AutoCAD 图形窗口，需要将 AutoCAD 应用程序的 Visible 特性设置为 TRUE。
使用 acadDoc 变量引用当前的 AutoCAD 图形。
Dim acadApp As AcadApplication
Dim acadDoc as AcadDocument
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, &AutoCAD.Application&)
If Err Then
Set acadApp = CreateObject(&AutoCAD.Application&)
If Err Then End
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
2、如何使 VB 开发的程序不依赖于 AutoCAD 的版本。
启动 VB ，定义模块级变量 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc)。
如果 AutoCAD 正在运行，使用 GetObject 函数将检索 AutoCAD Application 对象。如果 AutoCAD 没有运行，使用 CreateObject 函数试图创建一个 AutoCAD Application 对象。如果创建成功，会启动 AutoCAD；如果失败，则会发生错误。
同时运行多个 AutoCAD 任务时，GetObject 函数会返回 Windows 运行对象表中的第一个 AutoCAD 实例。
要显示 AutoCAD 图形窗口，需要将 AutoCAD 应用程序的 Visible 特性设置为 TRUE。
使用 acadDoc 变量引用当前的 AutoCAD 图形。
Dim acadApp As Object
Dim acadDoc as Object
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, &AutoCAD.Application&)
If Err Then
Set acadApp = CreateObject(&AutoCAD.Application&)
If Err Then End
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
与第一个问题相比较，可以看出，不引用具体的类型库以及使用通用的对象类型就可以达到通用性。
3、前期绑定和后期绑定
要创建一个使用前期绑定方式的对象变量，也就是说，在程序编译时就完成绑定，则对象变量在声明时应指定类 ID，如：Dim acadApp As AcadApplication。
使用 As Object 子句声明对象变量，可以创建一个能包含任何类型对象引用的变量。不过，该变量访问对象是后期绑定的，也就是说，绑定在程序运行时才进行，如：Dim acadApp As Object。
前期绑定的变量引用可以提供更好的性能，但该变量只能存放声明中所指定的类的引用。
而后期绑定的变量引用可以提供更好的通用性。
4、依赖于版本和独立于版本
如果 CreateObject 或 GetObject 函数使用的 ProgID 没有附加版本号，那么是独立于版本的，否则是依赖于版本的。例如，如果使用的是 CreateObject，则 CreateObject (&AutoCAD.Application&) 是独立于版本的，而 CreateObject (&AutoCAD.Application.15&) 是依赖于版本的。
5、VB 代码到 VBA 代码的转换
在 VBA 的 IDE 环境中，使用“导入文件”将要转换的 VB 工程的模块、类模块以及窗体文件一一导入。接着将 VB 代码中所有的当前的文档 (acadDoc) 变量替换为 ThisDrawing，而AutoCAD 应用程序 (acadApp) 变量替换为 Application。同时删除定义的 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc) 变量，删除与 AutoCAD 应用程序连接的代码。注意：要转换 VB 代码的窗体部分，则窗体必须是用 UserForm 创建的。
6、图形对象和非图形对象
图形对象（也称为图元、实体对象）是组成图形的可见对象（例如直线、圆、光栅图像等）。非图形对象是指属于图形的一部分但不可见的（提示性的）对象，例如 Layers、 Linetypes、 DimStyles、 SelectionSets 等等。要创建这些对象，可使用 Add 方法。每一个对象都有用于特定目的的方法和特性，都有设置和检索扩展数据以及删除自己的方法。
上一篇：下一篇：帖子地址：&分享给好友
阅读权限10
该用户从未签到
简体中文繁體中文
请问，VB如何将一个外部图块插入到已有的CAD图中？
阅读权限20
TA的每日心情开心 11:26签到天数: 1 天[LV.1]初来乍到
简体中文繁體中文
请问，VB如何将一个外部图块插入到已有的CAD图中？
将一个文件中的块插入另一个文件中，需要获得块对象，然后插入到文件，就可以了。
找了一个例子，供参考
'########### 块操作& & ##############
'块对象与块参照不同，块参照是实例
Public Sub GetBlockName(o_AcadDoc As Object)
'获得文档中所有块对象的名字
Dim o_Blocks As Object
Dim o_Block As Object
Set o_Blocks = o_AcadDoc.Blocks '所有块集合
For Each o_Block In o_Blocks
& & Debug.Print o_Block.Name '显示块名字
Next
End Sub
Public Function AcadInsertBlock(o_AcadDoc As Object, BlockName, X, Y, Optional xs As Double = 1, Optional ys As Double = 1, Optional Rotation As Double = 0) '将外部文件作为一个块插入到图形
'插入块，可以插入文件和图形中的块，BlockName可以使文件名和图形中块的名字
'x,y为插入点坐标
'xs,ys为缩放比例，Z目前固定在1
'Rotation为旋转角度
Dim Location(0 To 2) As Double '定义插入点
' 定义点的位置
Location(0) = X
Location(1) = Y
'插入块
If Rotation & 0 Then
& & 'Rotation = 3.14159 * Rotation / 180&&'角度计算公式
& & Rotation = 0. * Rotation&&'3.14/180=0.01745....计算公式
End If
Set AcadInsertBlockFile = o_AcadDoc.ModelSpace.InsertBlock(Location, BlockName, xs, ys, 1, Rotation)
End Function
本站所有资料仅供大家学习之用，商用请务必购买正版版权！有侵权之处，请联系管理员(QQ:)删除！AutoCAD VBA二次开发初级教程_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
AutoCAD VBA二次开发初级教程
&&AutoCAD VBA二次开发初级教程
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
还剩18页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢AutoCAD VBA二次开发教程下载免费版_西西软件下载
西西软件园多重安全检测下载网站、值得信赖的软件下载站！
相关软件 /英文/ /中文/ /中文/ /英文/ /中文/ /英文/ /中文/ /英文/ /英文/ /英文/顶好评:50%踩坏评:50%请简要描述您遇到的错误，我们将尽快予以修正。轮坛转帖HTML方式轮坛转帖UBB方式
49.0M/中文/4.5
73M/中文/6.0
14.7M/中文/4.6
14.8M/多国语言[中文]/4.0
30.3M/中文/8.4
16.8M/中文/7.3
9.4M/中文/7.3
VBA二次开发教程是一款所有的实例归入基础相关、控制环境、创建和编辑二维对象、对象特性、文字、标注和公差、块和属性、处理AutoCAD中的事件、三维空间的操作、打印、高级绘图组织、使用组件扩展程序功能、和Excel交换数据、应用程序、发布VBA应用程序等大类的VBA二次开发教程，从不同的角度分析VBA编程的技术和技巧。提供了多个精彩实例的源码，涉及VBA的基础操作、VBA的应用领域、VBA的特殊功能，以及CAD软件开发的一些基础知识。软件说明文件夹&PATH&列表卷序列号码为&EF:17BED:.│&&1.txt│&&└─AutoCAD&VBA&二次开发教程源码&&&&├─chap01&ActiveX&Automation基础&&&&│&&&&&&宏.dvb&&&&│&&&&&&集合对象的使用.dvb&&&&│&&&&&&&&&&├─chap02&控制AutoCAD环境&&&&│&&&&&&命名视图.dvb&&&&│&&&&&&和用户交互.dvb&&&&│&&&&&&文档操作.dvb&&&&│&&&&&&缩放视图.dvb&&&&│&&&&&&&&&&├─chap03&创建和编辑二维图形对象&&&&│&&&&&&使用SendCommand方法.dvb&&&&│&&&&&&利用制图法通过三点创建圆.dvb&&&&│&&&&&&圆管的放样展开.dvb&&&&│&&&&&&在AutoCAD&2004以前版本中计算优化多段线长度.dvb&&&&│&&&&&&多段线的几个问题.dvb&&&&│&&&&&&天圆地方的放样展开.dvb&&&&│&&&&&&样条曲线转化为多段线.dvb&&&&│&&&&&&根据起点、终点和弧长创建圆弧.dvb&&&&│&&&&&&点到多段线的最短距离.dvb&&&&│&&&&&&直线、圆和圆弧修改为多段线.dvb&&&&│&&&&&&选择集.dvb&&&&│&&&&&&&&&&├─chap04&对象特性&&&&│&&&&&&ObjectDBX测试图形.dwg&&&&│&&&&&&使用ObjectDBX技术导入其他图形中的信息.dvb&&&&│&&&&&&按图层进行缩放.dvb&&&&│&&&&&&&&&&├─chap05&文字的创建和编辑&&&&│&&│&&使用ObjectDBX实现批量文字替换.dvb&&&&│&&│&&提取多行文字中的文字内容.dvb&&&&│&&│&&文字按插入点自动对齐.dvb&&&&│&&│&&&&&&│&&└─创建文字样式&&&&│&&&&&&│&&创建文字样式.dvb&&&&│&&&&&&│&&&&&&│&&&&&&└─SystemFonts&&&&│&&&&&&&&&&&&&&Fonts.cls&&&&│&&&&&&&&&&&&&&MSSCCPRJ.SCC&&&&│&&&&&&&&&&&&&&SystemFonts.dll&&&&│&&&&&&&&&&&&&&SystemFonts.exp&&&&│&&&&&&&&&&&&&&SystemFonts.lib&&&&│&&&&&&&&&&&&&&SystemFonts.vbp&&&&│&&&&&&&&&&&&&&SystemFonts.vbw&&&&│&&&&&&&&&&&&&&&&&&├─chap06&标注和公差&&&&│&&│&&列举所有的形位公差符号.dvb&&&&│&&│&&标注圆弧长度.dvb&&&&│&&│&&&&&&│&&└─锁定标注文字不随对象缩放而动态改变&&&&│&&&&&&&&&&FixDimByCopyDim.dvb&&&&│&&&&&&&&&&FixdimBySubEntity.dvb&&&&│&&&&&&&&&&&&&&├─chap07&块和属性&&&&│&&│&&AutoCAD中斜切功能的实现.dvb&&&&│&&│&&使用匿名块.dvb&&&&│&&│&&将已经存在的实体添加到块定义中.dvb&&&&│&&│&&属性块的使用.dvb&&&&│&&│&&简单块的定义和插入.dvb&&&&│&&│&&自动标题栏.dvb&&&&│&&│&&&&&&│&&└─块属性生成表格&&&&│&&&&&&&&&&Att2TableSample.dwg&&&&│&&&&&&&&&&块属性生成表格.dvb&&&&│&&&&&&&&&&&&&&├─chap08&使用AutoCAD中的事件&&&&│&&│&&处理对象层事件.dvb&&&&│&&│&&处理应用程序层事件.dvb&&&&│&&│&&处理文档层事件.dvb&&&&│&&│&&&&&&│&&└─永久反应器&&&&│&&&&&&│&&测试代码.txt&&&&│&&&&&&│&&&&&&│&&&&&&└─TlsCad&&&&│&&&&&&&&&&&&&&CDocument.cls&&&&│&&&&&&&&&&&&&&CEntity.cls&&&&│&&&&&&&&&&&&&&MSSCCPRJ.SCC&&&&│&&&&&&&&&&&&&&TlsApplication.cls&&&&│&&&&&&&&&&&&&&TlsCad.dll&&&&│&&&&&&&&&&&&&&TlsCad.exp&&&&│&&&&&&&&&&&&&&TlsCad.lib&&&&│&&&&&&&&&&&&&&TlsCad.rar&&&&│&&&&&&&&&&&&&&TlsCad.vbp&&&&│&&&&&&&&&&&&&&TlsCad.vbw&&&&│&&&&&&&&&&&&&&TlsReactor.cls&&&&│&&&&&&&&&&&&&&TlsReactors.cls&&&&│&&&&&&&&&&&&&&TlsSelectionSet.cls&&&&│&&&&&&&&&&&&&&TlsUtility.cls&&&&│&&&&&&&&&&&&&&&&&&├─chap09&在三维空间工作&&&&│&&│&&偏心圆台.dvb&&&&│&&│&&创建UCS.dvb&&&&│&&│&&在UCS中创建基本图元.dvb&&&&│&&│&&在三维空间中创建填充.dvb&&&&│&&│&&正多面体.dvb&&&&│&&│&&&&&&│&&└─窗体图片&&&&│&&&&&&&&&&偏心圆台.wmf&&&&│&&&&&&&&&&偏心圆台窗体.dwg&&&&│&&&&&&&&&&正二十面体.wmf&&&&│&&&&&&&&&&正八面体.wmf&&&&│&&&&&&&&&&正六面体.wmf&&&&│&&&&&&&&&&正十二面体.wmf&&&&│&&&&&&&&&&正四面体.wmf&&&&│&&&&&&&&&&&&&&├─chap10&布局和打印&&&&│&&&&&&.dvb&&&&│&&&&&&&&&&├─chap11&高级绘图与组织技术&&&&│&&&&&&使用SummaryInfo对象保存图形信息.dvb&&&&│&&&&&&扩展字典.dvb&&&&│&&&&&&扩展数据.dvb&&&&│&&&&&&示例图形.dwg&&&&│&&&&&&绘图顺序.dvb&&&&│&&&&&&&&&&├─chap12&VBA与应用程序&&&&│&&│&&VBA应用程序的错误处理.dvb&&&&│&&│&&调试VBA应用程序.dvb&&&&│&&│&&&&&&│&&├─创建和使用定时器&&&&│&&│&&│&&创建和使用定时器.dvb&&&&│&&│&&│&&&&&&│&&│&&└─VBA_Timer&&&&│&&│&&&&&&&&&&MSSCCPRJ.SCC&&&&│&&│&&&&&&&&&&Timer.cls&&&&│&&│&&&&&&&&&&VBA_Timer.dll&&&&│&&│&&&&&&&&&&VBA_Timer.exp&&&&│&&│&&&&&&&&&&VBA_Timer.lib&&&&│&&│&&&&&&&&&&VBA_Timer.vbp&&&&│&&│&&&&&&&&&&VBA_Timer.vbw&&&&│&&│&&&&&&&&&&&&&&│&&├─显示停靠窗口―Accont组件&&&&│&&│&&│&&accont.zip&&&&│&&│&&│&&accont16.zip&&&&│&&│&&│&&CH3_4.dwg&&&&│&&│&&│&&CH3_4.exp&&&&│&&│&&│&&CH3_4.lib&&&&│&&│&&│&&CH3_4.ocx&&&&│&&│&&│&&CH3_4.vbp&&&&│&&│&&│&&CH3_4.vbw&&&&│&&│&&│&&MSSCCPRJ.SCC&&&&│&&│&&│&&PICKSET.BMP&&&&│&&│&&│&&UserControl1.ctl&&&&│&&│&&│&&UserControl1.ctx&&&&│&&│&&│&&&&&&│&&│&&├─accont&&&&│&&│&&│&&&&&&accont.arx&&&&│&&│&&│&&&&&&accont.hlp&&&&│&&│&&│&&&&&&accont.tlb&&&&│&&│&&│&&&&&&accont_help.doc&&&&│&&│&&│&&&&&&dock.zip&&&&│&&│&&│&&&&&&source.zip&&&&│&&│&&│&&&&&&&&&&│&&│&&├─accont16&&&&│&&│&&│&&&&&&accont16.arx&&&&│&&│&&│&&&&&&accont16.tlb&&&&│&&│&&│&&&&&&&&&&│&&│&&└─停靠窗口&&&&│&&│&&&&&&&&&&停靠窗口.vbp&&&&│&&│&&&&&&&&&&停靠窗口.vbw&&&&│&&│&&&&&&&&&&&&&&│&&├─显示幻灯片―Slide组件&&&&│&&│&&│&&slide.zip&&&&│&&│&&│&&显示幻灯片―Slide组件.dvb&&&&│&&│&&│&&&&&&│&&│&&└─slide&&&&│&&│&&&&&&&&&&install.bat&&&&│&&│&&&&&&&&&&Slide.ocx&&&&│&&│&&&&&&&&&&Slm.cnt&&&&│&&│&&&&&&&&&&SLM.HLP&&&&│&&│&&&&&&&&&&&&&&│&&├─显示缩略图―DwgThumbnail组件&&&&│&&│&&│&&DwgThumbnail组件.zip&&&&│&&│&&│&&显示缩略图―DwgThumbnail组件.dvb&&&&│&&│&&│&&&&&&│&&│&&└─DwgThumbnail组件&&&&│&&│&&&&&&&&&&DWGTHUMBNAIL.HLP&&&&│&&│&&&&&&&&&&DwgThumbnail.ocx&&&&│&&│&&&&&&&&&&ReadMe.txt&&&&│&&│&&&&&&&&&&&&&&│&&└─解析表达式―MSScript组件&&&&│&&&&&&&&&&msscript.ocx&&&&│&&&&&&&&&&解析表达式―MSScript组件.dvb&&&&│&&&&&&&&&&&&&&├─chap13&与其他应用程序和Windows&API交互&&&&│&&│&&去掉关闭按钮（X）和添加右键菜单.dvb&&&&│&&│&&转换AutoCAD数据到Word和Excel中.dvb&&&&│&&│&&转换Excel数据到AutoCAD中.dvb&&&&│&&│&&&&&&│&&├─使用Excel数据绘图&&&&│&&│&&&&&&demo.xls&&&&│&&│&&&&&&使用Excel数据绘图.dvb&&&&│&&│&&&&&&&&&&│&&├─转换AutoCAD数据到Word和Excel中－测试资料&&&&│&&│&&&&&&demo.doc&&&&│&&│&&&&&&demo.dwg&&&&│&&│&&&&&&xh.dwg&&&&│&&│&&&&&&xhh.dwg&&&&│&&│&&&&&&&&&&│&&└─转换Excel数据到AutoCAD中－测试资料&&&&│&&&&&&&&&&demo.xls&&&&│&&&&&&&&&&&&&&├─chap14&创建数据库应用程序&&&&│&&│&&使用ADODC控件.dvb&&&&│&&│&&使用记录集从数据表中读取数据.dvb&&&&│&&│&&创建数据库的ADO连接.dvb&&&&│&&│&&创建数据表.dvb&&&&│&&│&&&&&&│&&└─数据记录和AutoCAD实体的对应&&&&│&&&&&&&&&&Attribute.mdb&&&&│&&&&&&&&&&Demo.bak&&&&│&&&&&&&&&&Demo.dwg&&&&│&&&&&&&&&&数据记录和AutoCAD实体的对应.dvb&&&&│&&&&&&&&&&&&&&├─chap15&VBA程序的发布&&&&│&&│&&更改AutoCAD应用程序的图标和标题栏.dvb&&&&│&&│&&&&&&│&&├─在命令行或菜单中执行VBA程序&&&&│&&│&&&&&&Draw2Line.bmp&&&&│&&│&&&&&&Draw3Line.bmp&&&&│&&│&&&&&&DrawLine.dvb&&&&│&&│&&&&&&DrawLine.mnc&&&&│&&│&&&&&&DrawLine.mnr&&&&│&&│&&&&&&DrawLine.mns&&&&│&&│&&&&&&DrawLine.mnu&&&&│&&│&&&&&&DrawLine1.lsp&&&&│&&│&&&&&&DrawLine2.lsp&&&&│&&│&&&&&&DrawLine3.lsp&&&&│&&│&&&&&&DrawLine4.lsp&&&&│&&│&&&&&&DrawLine5.lsp&&&&│&&│&&&&&&&&&&│&&├─在工具栏中使用自定义图标&&&&│&&│&&│&&mjtd.dll&&&&│&&│&&│&&mjtd.mnc&&&&│&&│&&│&&mjtd.mnr&&&&│&&│&&│&&mjtd.mns&&&&│&&│&&│&&mjtd.mnu&&&&│&&│&&│&&&&&&│&&│&&├─ResourceDLL&&&&│&&│&&│&&&&&&Class1.cls&&&&│&&│&&│&&&&&&mjtd.exp&&&&│&&│&&│&&&&&&mjtd.lib&&&&│&&│&&│&&&&&&mjtd.RES&&&&│&&│&&│&&&&&&mjtd.vbp&&&&│&&│&&│&&&&&&mjtd.vbw&&&&│&&│&&│&&&&&&MSSCCPRJ.SCC&&&&│&&│&&│&&&&&&&&&&│&&│&&└─按钮图标&&&&│&&│&&&&&&&&&&acadbtn_dll_ICON_16_LINE.bmp&&&&│&&│&&&&&&&&&&acadbtn_dll_ICON_16_ZOO2X.bmp&&&&│&&│&&&&&&&&&&acadbtn_dll_ICON_16_ZOO5X.bmp&&&&│&&│&&&&&&&&&&&&&&│&&├─基本图库的实现&&&&│&&│&&│&&BlockLib.mnu&&&&│&&│&&│&&基本图库的实现.dvb&&&&│&&│&&│&&&&&&│&&│&&├─Blocks&&&&│&&│&&│&&&&&&circle.bak&&&&│&&│&&│&&&&&&circle.dwg&&&&│&&│&&│&&&&&&donut.bak&&&&│&&│&&│&&&&&&donut.dwg&&&&│&&│&&│&&&&&&point.bak&&&&│&&│&&│&&&&&&point.dwg&&&&│&&│&&│&&&&&&rectangle.bak&&&&│&&│&&│&&&&&&rectangle.dwg&&&&│&&│&&│&&&&&&test.bak&&&&│&&│&&│&&&&&&test.dwg&&&&│&&│&&│&&&&&&桌椅.bak&&&&│&&│&&│&&&&&&桌椅.dwg&&&&│&&│&&│&&&&&&&&&&│&&│&&└─Slides&&&&│&&│&&&&&&&&&&circle.sld&&&&│&&│&&&&&&&&&&donut.sld&&&&│&&│&&&&&&&&&&point.sld&&&&│&&│&&&&&&&&&&rectangle.sld&&&&│&&│&&&&&&&&&&test.sld&&&&│&&│&&&&&&&&&&桌椅.sld&&&&│&&│&&&&&&&&&&&&&&│&&├─实现VBA程序的先选择后操作和透明命令&&&&│&&│&&&&&&AutoVBA.lsp&&&&│&&│&&&&&&ChangeColor.dvb&&&&│&&│&&&&&&VbaRun.lsp&&&&│&&│&&&&&&Zoom.dvb&&&&│&&│&&&&&&Zoom.lsp&&&&│&&│&&&&&&&&&&│&&├─程序的打包和发布&&&&│&&│&&│&&acaddoc.lsp&&&&│&&│&&│&&infolist.txt&&&&│&&│&&│&&license.txt&&&&│&&│&&│&&mjtd.ico&&&&│&&│&&│&&mjtd.mnu&&&&│&&│&&│&&setup.bmp&&&&│&&│&&│&&&&&&│&&│&&├─Templates&&&&│&&│&&│&&&&&&样板.dwt&&&&│&&│&&│&&&&&&&&&&│&&│&&└─VBA&Macros&&&&│&&│&&&&&&&&&&acad.dvb&&&&│&&│&&&&&&&&&&使用ObjectDBX实现批量文字替换.dvb&&&&│&&│&&&&&&&&&&使用ObjectDBX技术导入其他图形中的信息.dvb&&&&│&&│&&&&&&&&&&偏心圆台.dvb&&&&│&&│&&&&&&&&&&圆管的放样展开.dvb&&&&│&&│&&&&&&&&&&在三维空间中创建填充.dvb&&&&│&&│&&&&&&&&&&按图层进行缩放.dvb&&&&│&&│&&&&&&&&&&文字按插入点自动对齐.dvb&&&&│&&│&&&&&&&&&&样条曲线转化为多段线.dvb&&&&│&&│&&&&&&&&&&根据起点、终点和弧长创建圆弧.dvb&&&&│&&│&&&&&&&&&&正多面体.dvb&&&&│&&│&&&&&&&&&&点到多段线的最短距离.dvb&&&&│&&│&&&&&&&&&&直线、圆和圆弧修改为多段线.dvb&&&&│&&│&&&&&&&&&&&&&&│&&└─菜单宏&&&&│&&&&&&&&&&Line.dvb&&&&│&&&&&&&&&&MenuMacro.mnc&&&&│&&&&&&&&&&MenuMacro.mnr&&&&│&&&&&&&&&&MenuMacro.mns&&&&│&&&&&&&&&&MenuMacro.mnu&&&&│&&&&&&&&&&&&&&├─chap16&VBA开发相关技术&&&&│&&│&&搜索某个文件夹中所有的文件.dvb&&&&│&&│&&获得所有加载的VBA工程的路径和名称.dvb&&&&│&&│&&&&&&│&&├─在VB中创建应用程序&&&&│&&│&&&&&&frmMain.frm&&&&│&&│&&&&&&Module1.bas&&&&│&&│&&&&&&MSSCCPRJ.SCC&&&&│&&│&&&&&&TextReplace.vbp&&&&│&&│&&&&&&TextReplace.vbw&&&&│&&│&&&&&&&&&&│&&└─显示窗体的VB&DLL工程&&&&│&&&&&&&&&&CTest.cls&&&&│&&&&&&&&&&frmTest.frm&&&&│&&&&&&&&&&MSSCCPRJ.SCC&&&&│&&&&&&&&&&prjTest.dll&&&&│&&&&&&&&&&prjTest.exp&&&&│&&&&&&&&&&prjTest.lib&&&&│&&&&&&&&&&prjTest.vbp&&&&│&&&&&&&&&&prjTest.vbw&&&&│&&&&&&&&&&&&&&└─附赠的应用程序源码&&&&&&&&&&&&使用DBX复制对象.dvb&&&&&&&&&&&&创建与直线平行的文字.dvb&&&&&&&&&&&&创建分数.dvb&&&&&&&&&&&&判断对象所在的工作空间.dvb&&&&&&&&&&&&判断点是否在直线的右侧.dvb&&&&&&&&&&&&块内按点生成填充.dvb&&&&&&&&&&&&将文字转换为属性.dvb&&&&&&&&&&&&打印到文件夹.dvb&&&&&&&&&&&&打开和关闭屏幕菜单.dvb&&&&&&&&&&&&查询动态块的自定义特性.dvb&&&&&&&&&&&&清理组.dvb&&&&&&&&&&&&自动注册控件.dvb&&&&&&&&&&&&获得填充边界.dvb
安卓官方手机版
IOS官方手机版
该软件免费版可能被误报毒
VB是一门非常易学的编程语言之一，但是它的功能依然强大，可以编写出小型软件和大型应用程序，这里的所有课程可以全方位地帮到大家，大家认真学完后定然可以自己独立编写程序。很适合在校大学生学习，有很大课余时间
中文 / 30Gvb视频教程百度网盘【30G】免费为
中文 / 88.4MVisualBasic从入门到精通教材，是
中文 / 6.1M本书提供了最快、最简便的方法学
中文 / 1.26GVisual Basic .NET是Microsoft公
中文 / 964KBvb.net是Visual Basic.net的简称
中文 / 8.4M很不错的VBA学习教程，我也是刚刚
AutoCAD是一系列的AutoCAD制图软件集合，由Autodesk公司推出的计算机辅助图形绘制设计软件，该AutoCAD破解版包里包含有autocad2010破解版32位/64位下载、autocad2014破解版下载/autocad2014序列号和密钥注册机、auto
中文 / 1.1M测绘程序集成软件是一款与测绘有
中文 / 8.7M免费迷你iMini建筑工具23周年纪念
中文 / 1.76Gcad2010软件免费中文版32位版是一
中文 / 540.3M请选择性使用，要不然会卡的~~~如
中文 / 1.60GAutoCAD是由美国Autodesk欧特克公
中文 / 1.96G1、解压后用winrar再把ISO文件解
AutoCAD VBA二次开发教程 免费版
下载帮助西西破解版软件均来自互联网, 如有侵犯您的版权, 请与我们联系。