cad二次开发基础教程和实例档.docx

1、cad二次开发基础教程和实例档大家知道什么是宏吗？说白它就是VBA过程。看下面的代码：Public Sub MacroDemo() MsgBox Hello,Welcome to AutoCAD VBA!End Sub这就是宏。打开CAD输入命令vbaide回车会出现VBA的编辑界面，双击ThisDrawing在右侧的代码区输入上面的代码。如下图：然后按F5键会出现宏窗口，如下图：点击运行，大家看到什么？这就是一个最简单的一个用VBA对CAD进行二次开发的程序，也就是宏那什么是VBA呢？VBA就是VB的一个子集它的全称是Visual Basic For Application,它具有VB的大部

2、分功能。既然我们选择了VBA，我们首先要知道VBA能操作CAD里的哪些对象呢？打开VBAIDE窗口按下F2键会出现对象浏览器。如下图库选择AutoCAD,这时下面显示的就是CAD为VBA提供的可操作的对象的类了。这时有的人因没有基础，所以还是一头雾水，别怕，选中一个类图标后按F1，这时会弹出AutoCAD ActiveX and VBA Reference,选择最上面的一个子项Object Model(对象模型)，这个就是在CAD里那些对象的关系，如下图：如果英文不好的话，可以安装CAD2000,它的这个部分是中文的。为想学好VBA二次开发这个是必需的，而且VBA对Office的二次开发也是这

3、样的。这个在编程界叫做Active X,包括Active X控件、Active X DLL、和Active X EXE就好比一个程序为其它程序提供的一个后门一样下面我就给大家讲一下菜单吧。因为我们用到的其它公司做CAD二次开发的插件，从直观上首先接触的就是它的菜单，刚开始用的时候就是从它的菜单开始接触的。我经常用到的做菜单的方法有两种，一种是用CAD的菜单文件，另一种就是用VBA代码直接长成菜单。我先介绍第一种，CAD的菜单文件它是文本文件，我们用记事本就可打开并编辑它，或者再重新创建一个说到这里有的人可能要问了，我应该从何处开始入手呢，要怎样做呢？别急，CAD本身就有现成的供我们参考，就放在

4、CAD的安装文件夹下的Support文件夹内，或者其它插件的文件夹内，找不到可以按F3搜一下，扩展名分别为.mnu .mns ,mnc默认的菜单文件是 acad.mnu。原始 ASCII 菜单文件，即用户通常编辑或创建的文件。该文件以查看完整菜单文件的外表特征。.mnc已编译的菜单文件；一种二进制文件，包含用于定义菜单或其他界面元素的功能及外观的命令字符串和菜单语法。首次加载 MNU 文件时，AutoCAD 将编译此文件。.mns源菜单文件；一种与 MNU 文件相同的 ASCII 文件，但是不包含注释或特殊格式。每次菜单文件的内容被更改时，AutoCAD 将修改源菜单文件。.mnr菜单资源文件

5、；一种二进制文件，包含由菜单或其他界面元素使用的位图。AutoCAD 每次编译 MNC 文件时，均生成菜单资源文件。.mnt菜单资源文件。仅在 MNR 文件无效（例如，只读）时生成该文件。.mnl菜单 LISP 文件；包含菜单文件使用的 AutoLISP 表达式。当加载与菜单 LISP 文件具有相同文件名的菜单文件时，AutoCAD 会将菜单 LISP 文件加载至内存。自己做的.mns的文件内容如下/ AutoCAD 菜单文件 - C:Documents and SettingswuypLocal SettingsApplication DataAutodeskAutoCAD 2004R16.

6、0chsFD04Menu.mns/*MENUGROUP=wyp*POP1*WYPID_COMPUTE 富地2004(&C)ID_TongXin 通信. CTRL+SHIFT+ACC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/通信.dvb!Module1.TongXinID_WorkAffiliation 工作联系单.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA.dvb!ModWorkAffiliation.WorkAffiliation ID_StyleBook 样本查询.CC-vbarun F:/编程/作品/CAD二次

7、开发/二次开发/Vba计算/AcadVBA.dvb!ModStyleBook.StyleBookID_DRAW -绘图工具ID_ZISZERO 多义线各节点Z轴设为零CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/Z轴为0.dvb!Module1.SetZIs0ID_LuoXuanXian 三维螺旋线.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/螺旋线.dvb!Module1.LuoXuanXianID_JKX 设计工具ID_MXB 导出明细表.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA

8、.dvb!ModMXB.mxbID_YGXCKDGS 圆管型材宽度估算.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/圆管型材宽度估算.dvb!Module1.YGXCKDGSID_BKJQJS 圆管型材宽度精算. CTRL+SHIFT+SCC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/圆管型材宽度精算.dvb!Module1.BKJQJSID_NDJS 挠度计算. CTRL+SHIFT+CCC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/挠度计算.dvb!Module1.NDJSID_BULK1 体积. CT

9、RL+SHIFT+ZCC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/体积.dvb!Module1.bulkID_LianLun 链轮参数CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/链轮参数.dvb!Module1.LianLunID_YLGBHJS 压力管壁厚计算.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/压力管壁厚计算.dvb!Module1.YLGBHJSID_GTBHJS 缸筒壁厚计算.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/缸筒壁厚计算.dvb!Module

10、1.GTBHJSID_Bearing 轴承型号大全.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA.dvb!ModBearing.BearingID_LiuLiang 油缸流量计算CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/流量计算.dvb!Module1.LiuLiangID_YYZHDJGL 液压站电机功率计算CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA.dvb!modYYZHDJGL.YYZHDJGLid_GearMatching CAD系统设置ID_MButton

11、-鼠标中键控制ID_MButtonPan 鼠标中键平移CC_setvar mbuttonpan 1ID_MButtonMenu 设置正角度的方向ID_anticlockwise 逆时针CC_setvar ANGDIR 0ID_deasil 隐含边延伸模式ID_extend 延伸(&E)CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA.dvb!ModExtendMode.extendID_NoExtend 显示文件对话框ID_filediaON 显示CC_setvar filedia 1ID_filediaOFF 设置修剪和延伸的当前“投影”模式ID_P

12、ROJMODE0 真三维模式(无投影)CC_setvar PROJMODE 0ID_PROJMODE1 投影到当前UCS的XY平面上CC_setvar PROJMODE 1ID_PROJMODE2 预览图像是否随图形一起保存ID_RASTERPREVIEWOFF 不创建预览图像CC_setvar RASTERPREVIEW 0ID_RASTERPREVIEWON 寄出错误报告到ID_REPORTERRORON 显示CC_setvar REPORTERROR 1ID_REPORTERROROFF 双击鼠标编辑对象ID_PICKSTYLE_OK 使用CC_setvar PICKSTYLE 0ID_

13、PICKSTYLE_NO -不使用CC_setvar PICKSTYLE 1ID_ANGBASE 基准角置零,图案为Ansi31CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA.dvb!modCADSysVariant.AngBaseIs0ID_ZOOMFACTOR 鼠标辊抡缩放速度.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/鼠标辊抡缩放速度.dvb!Module1.SFSDID_HPNAME 设置默认填充图案为ANSI31CC_setvar HPNAME ansi31ID_CELTSCALE 设置当前对象的线型比例因

14、子为1CC_setvar CELTSCALE 1 ID_QLHCHBC Windows系统工具ID_CALC 计算器. CTRL+SHIFT+ALT+ZCC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/winsystools.dvb!Module1.calcID_Mspaint 画笔. CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/winsystools.dvb!Module1.mspaintID_CALC1 实用计算器.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/winsystools.dvb!Modul

15、e1.calc1ID_ChangeWPaper 电话表ID_FDTel 公司电话表.CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/AcadVBA.dvb!modTel.FDTelID_ZHGTel 菜单ID_Update CAD2002菜单更新CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/UpdateFDMenu.dvb!Module1.Update02menuID_Update04 -CAD2004菜单更新CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/UpdateFDMenu.dvb!Module1.U

16、pdate04menu*TOOLBARS*TOOLBARWYPID_ToolbarWYP_0 _Toolbar(ToolbarWyp, _Top, _Show, 0, 2, 1)ID_OsnapCent _Button(捕捉到圆心, RCDATA_16_OSNCEN, RCDATA_16_OSNCEN)_cenID_OsnapTang _Button(捕捉到切点, RCDATA_16_OSNTAN, RCDATA_16_OSNTAN)_tanID_PCCAD_PCZXX_0 _Button(中心线 ZX, /Ca.bmp, ZXX.bmp)PCCPC_zXX T -ID_Circle2pt_0

17、 _Button(圆 两点, RCDATA_16_CIR2PT, RCDATA_16_CIR2PT)CC_circle _2pID_3dpoly_0 _Button(三维多段线, RCDATA_16_3DPOLY, RCDATA_16_3DPOLY)CC_3dpolyID_Hatchedit_0 _Button(编辑图案填充, RCDATA_16_HATEDI, RCDATA_16_HATEDI)CC_hatcheditID_Region_0 _Button(面域, RCDATA_16_REGION, RCDATA_16_REGION)CC_region -ID_Sphere_0 _Butto

18、n(球体, RCDATA_16_SPHERE, RCDATA_16_SPHERE)CC_sphereID_Extrude_0 _Button(拉伸, RCDATA_16_EXTRUD, RCDATA_16_EXTRUD)CC_extrudeID_Revolve_0 _Button(旋转, RCDATA_16_REVOLV, RCDATA_16_REVOLV)CC_revolveID_Slice_0 _Button(剖切, RCDATA_16_SLICE, RCDATA_16_SLICE)CC_slice -ID_Union_0 _Button(并集, RCDATA_16_UNION, RCDA

19、TA_16_UNION)CC_unionID_Subtract_0 _Button(差集, RCDATA_16_SUBTRA, RCDATA_16_SUBTRA)CC_subtractID_Intersect_0 _Button(交集, RCDATA_16_INTERS, RCDATA_16_INTERS)CC_intersectID_FaceExtru_0 _Button(拉伸面, RCDATA_16_EXTRUD, RCDATA_16_EXTRUD)CC_solidedit _face _extrudeID_Shell_0 _Button(抽壳, RCDATA_16_SHELL, RCDA

20、TA_16_SHELL)CC_solidedit _body _shell -ID_Massprop_0 _Button(面域/质量特性, RCDATA_16_MASSPR, RCDATA_16_MASSPR)CC_masspropID_UBBulk_0 _Button(体积, ICON.bmp, ICON_16_BLANK)CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/体积.dvb!Module1.bulk -ID_2doptim_0 _Button(二维线框, RCDATA_16_2DOPTIM, RCDATA_16_2DOPTIM)$M=$(if,$(and

21、,$(eq,$(getvar,tilemode),0),$(eq,$(getvar,cvport),1),CC_shademode,CC_shademode _2)ID_Wireframe_0 _Button(三维线框, RCDATA_16_WIREFRAME, RCDATA_16_WIREFRAME)$M=$(if,$(and,$(eq,$(getvar,tilemode),0),$(eq,$(getvar,cvport),1),CC_shademode,CC_shademode _3)ID_Hidden_0 _Button(消隐, RCDATA_16_HIDDEN, RCDATA_16_H

22、IDDEN)$M=$(if,$(and,$(eq,$(getvar,tilemode),0),$(eq,$(getvar,cvport),1),CC_shademode,CC_shademode _h)ID_Gouraud_0 _Button(体着色, RCDATA_16_GOURAUD, RCDATA_16_GOURAUD)$M=$(if,$(and,$(eq,$(getvar,tilemode),0),$(eq,$(getvar,cvport),1),CC_shademode,CC_shademode _g)ID_UBZIs0 _Button(User Defined Button, IC

23、ON1286.bmp, ICON_16_BLANK)CC-vbarun F:/编程/作品/CAD二次开发/二次开发/Vba计算/Z轴为0.dvb!Module1.SetZIs0 -ID_Dimlinear _Button(线性标注, RCDATA_16_DIMLIN, RCDATA_16_DIMLIN)CC_dimlinearID_DimUpdate _Button(标注更新, RCDATA_16_DIMUPD, RCDATA_16_DIMUPD)CC_-dimstyle _apply -ID_TbViewpoi_0 _Flyout(视图, RCDATA_16_DDVIEW, RCDATA_1

24、6_DDVIEW, _OtherIcon, ACAD.TB_VIEWPOINT)ID_ZoomExten_0 _Button(范围缩放, RCDATA_16_ZOOEXT, RCDATA_16_ZOOEXT)_zoom _e -ID_UserButton_1 _Button(清理、核查、缩放并保存, RCDA0986.bmp, RCDATA_16_BLANK)CC-purge a * n _audit y zoom e qsave -ID_3darray_0 _Button(三维阵列, RCDA9985.bmp, RCDATA_16_BLANK)CC_3darrayID_Mirror3d_0

25、_Button(三维镜像, RCDA3513.bmp, RCDATA_16_BLANK)CC_mirror3dID_Rotate3d_0 _Button(三维旋转, RCDA5650.bmp, RCDATA_16_BLANK)CC_rotate3d*ACCELERATORSID_BULK1 CONTROL+SHIFT+ZID_PCCAD_PCZXX_0 CONTROL+ALT+TOOLBAR+ZID_BKJQJS CONTROL+SHIFT+SID_CALC CONTROL+SHIFT+ALT+ZID_UserButton_1 CONTROL+SHIFT+TOOLBAR+XID_QLHCHBC

26、 CONTROL+ALT+QID_TongXin CONTROL+SHIFT+A*HELPSTRINGSID_UPDATE 更新计算菜单ID_GTBHJS 缸筒管壁厚计算.ID_REVOLVE_0 绕轴旋转二维对象以创建实体: REVOLVEID_SHELL_0 以指定的厚度在实体对象上创建中空的薄壁: SOLIDEDITID_BULK1 计算基本几何体的体积ID_SLICE_0 用平面剖切一组实体: SLICEID_SUBTRACT_0 用差集创建组合面域或实体: SUBTRACTID_DIMLINEAR 创建线性标注: DIMLINEARID_UBZIS0 将多义线各节点Z轴设为零ID_S

27、PHERE_0 创建三维实心球体: SPHEREID_JKX 渐开线.ID_HATCHEDIT_0 修改现有的图案填充对象: HATCHEDITID_UBBULK_0 计算基本几何体的体积ID_FACEEXTRU_0 按指定高度或沿路径拉伸实体对象的选定面: SOLIDEDITID_CIRCLE2PT_0 用直径的两个端点创建圆: CIRCLEID_REGION_0 将包含封闭区域的对象转换为面域对象: REGIONID_ZISZERO 将多义线各节点Z轴设为零ID_HIDDEN_0 将视口设置为隐藏线: SHADEMODEID_INTERSECT_0 从实体或面域的交集创建组合实体或面域: INTERSECTID_DIMUPDATE 更新标注的样式: DIMSTYL