本文目录一览：

• 1、用VB编写CAD绘图插件？
• 2、vb6.0企业版使用为什么出现cad的安装
• 3、为什么我打开VB6.0却要显示配置CAD2008呢?我电脑原来安了CAD2008,后来...
• 4、vb6读取cad矩形大小
• 5、为什么运行VB6.0自动运行CAD
• 6、VB6.0隐藏后的工程怎样显示出来啊

用VB编写CAD绘图插件？

操作步骤：

一、创建一个ACTIVEX DLL cadPro工程二、添加一个模块命名为ModCad.代码如下Public acadApp As ObjectPublic acadDoc As Object(这里建立一个新块主要是为了以后在多个窗体、类或者多个工程中可以调用)二、添加一个类ClsTest代码如下：

Public Function MenuMain(MenuIndex As Integer) 下面的判断在VB中测试的时候可以用到，在生成DLL后VBA调用时可注释 If ModCad.acadApp Is Nothing Or ModCad.acadDoc Is Nothing Then ConnectToAcad setApp ModCad.acadApp setDoc ModCad.acadDoc End If Select Case MenuIndex Case 1 AutoCADTest Case 2 End SelectEnd FunctionPublic Function ConnectToAcad() On Error Resume Next Set ModCad.acadApp = GetObject(, AutoCAD.Application.16.2) 16.2是CAD的版本 If Err Then Err.Clear Set ModCad.acadApp = CreateObject(AutoCAD.Application.16.2

) End If If Err Then Err.Clear Set ModCad.acadApp = GetObject(, AutoCAD.Application

) If Err Then Err.Clear Set ModCad.acadApp = CreateObject(AutoCAD.Application

) End If If Err Then Unload Me End If End If ModCad.acadApp.Visible = True Set ModCad.acadDoc = ModCad.acadApp.ActiveDocumentEnd FunctionPublic Function setApps(acadObj As AcadApplication) Set ModCad.acadApp = acadObj Set ModCad.acadDoc = acadApp.ActiveDocumentEnd FunctionVB中要在CAD中实现的功能Private Function AutoCADTest() Dim cadLine As AcadLine Dim cadPoint As Variant cadPoint = ModCad.acadDoc.Utility.GetPoint(, 请选取一个插入点：) ModCad.acadDoc.ModelSpace.AddCircle cadPoint, 5End Function三、如果要在VB中调试，在添加一个EXE工程，引用ACTIVEX工程，添加一个窗体，在窗体上添加一个按钮，Private Sub Command1_Click() Dim Rec As New cadPro.MenuMain Rec.MenuMain 1 End Sub四、生成DLL文件在VBA中调用。在工具----设定引用项目中加入生成的DLL。代码如下：

Option ExplicitPrivate clsGre As New cadPro.ClsTestPublic Sub cadtest() On Error Resume Next clsGre.setApp ThisDrawing.Application clsGre.MenuMain 1 End Sub按照以上四个步骤就可实现VB与AutoCAD的连接。以上程序在本机测试通过。OS:winxp sp2 chtAuotCAD Version:AutoCAD 2006

vb6.0企业版使用为什么出现cad的安装

1、这是微软的Windows Installer 的关系，因为他们都是通过这个安装的。在安装vb0的时候，autocAD的控件或者其他文件可能被修改或替换为其他不兼容版本了。就出现了这个现象。你可以关闭这个服务。

2、是DLL和OCX组件的共用问题。许多软件在启动时会载入一些DLL和OCX组件。VB启动时调用的组件正好是Office和CAD等软件都有共用的部分。所以出现这提示。要去除的话，需要把这些软件都“安装完全”，或者把它们“卸载完全”。

3、可能程序不兼容， 可以更换个版本试试。另外建议参考下程序对配置的要求。或者右键需要运行的程序 选择兼容性 用兼容模式运行试试。

4、关于启动VB时要求安装配置CAD的问题，主要原因是：如果系统安装了CAD的话，VB在启动时会自动搜寻并加载CAD相关组件，而这些CAD组件没有正确安装，所以会弹出配置CAD的对话框。

5、按它的提示，让你放啥盘就放啥盘 实在不行就重装。

6、这是软件有冲突了，VB0很早以前的软件了。和Office2007等有时也会这样。解决办法：先将CAD软件卸载完全，VB0也同时卸载。接下来先把VB0装上，然后再装CAD试下，应该可以。

为什么我打开VB6.0却要显示配置CAD2008呢?我电脑原来安了CAD2008,后来...

打开运行VB就弹出 Windwos 正在配置AutoCAD框的解决方法到微软网站下载Windows Installer CleanUp Utility：安装后在开始菜单中运行Windows Installer CleanUp Utility，选中AutoCAD的安装项，点Remove，按确定后稍等片刻即可成功。

这个不只是VB，应该是某些控件的问题，就是说，运行VB企业版时，调用了某一个控件，而CAD安装时，修改了那个控件的注册，就会提示需要重装安装。常见的有CAD，或OFFICE安装等都是这样的 你这时需要重新安装一下CAD。

你的CAD没有完全安装[我指的是还有一些工具，或者模块]你朋友使用时去调用这些就会提示配置CAD。但是没有安装光盘。他当然配置不成功。你尝试把CAD 卸了重装，再试试。所以才会出现这些。

vb6读取cad矩形大小

1、步骤如下。根据查询科技网得知。先获得当前屏幕分辨率。加上picturebox的size则会自动计算。

2、矩形命令是“rec”，输入后，回车 在图纸上单击一下，选择矩形的一个角点，再“回车”。之后有两种方法：以矩形长100，宽300，举例。

3、需要定义一个矩形对象，使用DimrectAsAcadLWPolyline语句来定义。需要使用rect.AddVertex语句来添加矩形的四个顶点坐标，顺序为左下角、左上角、右上角、右下角。

4、若是要将矩形尺寸由原尺寸变大或变小(图形所绘图实际尺寸)，可以用快捷命令S(拉伸)。如由原尺寸200改成500，输入S--空格--选择你要修改的尺寸向需要延伸的方向输入300即可。

5、你想做的估计是CAD图形属性的查询，在VBA中完成估计好点。

为什么运行VB6.0自动运行CAD

1、可能程序不兼容， 可以更换个版本试试。另外建议参考下程序对配置的要求。或者右键需要运行的程序 选择兼容性 用兼容模式运行试试。

2、这个不只是VB，应该是某些控件的问题，就是说，运行VB企业版时，调用了某一个控件，而CAD安装时，修改了那个控件的注册，就会提示需要重装安装。常见的有CAD，或OFFICE安装等都是这样的 你这时需要重新安装一下CAD。

3、是DLL和OCX组件的共用问题。 许多软件在启动时会载入一些DLL和OCX组件。 VB启动时调用的组件正好是Office和CAD等软件都有共用的部分。所以出现这提示。 要去除的话，需要把这些软件都“安装完全”，或者把它们“卸载完全”。

4、你可以启动你的VB，然后菜单：工程》部件》把旁边的“只显示选中项”勾上，看是不是把AUTOCAD勾上了 然后菜单：工程》引用》看看里面也是不是有一个AUTOCAD勾上了。

5、因为VB中会加载CAD的数据库，所以会这样，跟CAD版本有关系。你装OFFICE也有可能会遇到这种情况，但是一般不影响你VB操作只是会跳出来麻烦。卸载CAD，换个版本应该没问题。你下载那MSI也没用的。

6、按它的提示，让你放啥盘就放啥盘 实在不行就重装。

VB6.0隐藏后的工程怎样显示出来啊

保存文件名：“显示被隐藏的文件.REG”，（确保在“文件夹选项”中去掉“隐藏已知文件类型的扩展名”），双击运行此文件，再重新到“文件夹选项”中设置显示隐藏文件。

首先在电脑端打开vb软件，然后，点击顶部菜单栏的工程选项按钮。点击之后，在弹出的下列菜单中选择【工程属性】选项。接着会弹出的工程属性页面，如下图所示。选择点击【启动对象】下拉框选项，如图所示。

textvisible = false end subvisible 属性，返回或设置一指示对象为可见或隐藏的值。说明：要在启动时隐藏一个对象，在设计时将 visible 属性设置为 false。

vb的工程文件是这样的图标。 双击就可以打开工程了。

比如有两个form1 form2两个窗体，窗体上各有一个按钮，form1按钮点击事件代码如下 formshow me.hide 这样点击form1的按钮时form1就隐藏，form2被显示。

在工程栏中下拉找到被隐藏的控件，属性改过来就行了。

Tags：vb6显示cad文件