vb点虐与cad版本 vbnet vb区别

[求助]用VB链接AutoCAD如何兼容多个CAD版本？

定义变量时隐含定义，比如dim acadapp as acadapplication,改为dim acadapp as object,即可实现

专注于为中小企业提供成都网站建设、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业广丰免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了成百上千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

主要因为两个软件都是盗版的

[1]

系统少了VB运行库，或是VB运行库与cad运行库版本不兼容，下载最新vb运行库

[2]

弹出OFFICE的安装窗口我是经常碰到的,一般只要按它的意愿,指定安装盘位置给它,自动装完后,以后就不会再弹出了,估计CAD2007也是这个毛病

就是按它提示的指定CAD2007的安装盘的路径给它呀,如果你是用光盘安装的,就指定光盘路径给它,如果你是下载后放在硬盘上的,就指定安装程序所在的目录给它,当然如果是下载的话,要先解压缩才行.

这是因为这类软件本身带有与VB的接口,当这些接口没有正常安装,或信息不全时,VB就是要求完善这些引用(主要就是引用菜单下的清单生成发现错误,才会要求你安装这些部件)

[3]

cad CorelDRAW ps.......这类软件依赖调用windows的操作系统的API 你肯定卸载的时候把关联的动态链链接库删除了

如果可以的话请把分给我

以下是cad2007版的，引用autocad 2007 type library 和autocad/objectdbx common 17如果是04或者版本更低的只要引用autocad 2007 type library，代码的话大同小异，思路是一样的

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

On Error Resume Next

Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication

acadapp = GetObject(vbNullString, "autoCAD.application")

Dim acaddoc As Autodesk.AutoCAD.Interop.AcadDocument

acaddoc = acadapp.ActiveDocument

Dim Ms As Autodesk.AutoCAD.Interop.Common.AcadModelSpace

Ms = acaddoc.ModelSpace

Dim acadObjectI As Autodesk.AutoCAD.Interop.Common.AcadObject

Dim Linei As Autodesk.AutoCAD.Interop.Common.AcadLine

Dim Circlei As Autodesk.AutoCAD.Interop.Common.AcadCircle

Dim Polylinei As Autodesk.AutoCAD.Interop.Common.AcadPolyline

Dim pt As Autodesk.AutoCAD.Interop.Common.AcadPoint

For Each acadObjectI In Ms

Debug.Print(acadObjectI.ObjectName)

Select Case acadObjectI.ObjectName

Case "AcDbLine"

Linei = acadObjectI

Debug.Print("X =" Linei.StartPoint(0).ToString)

Debug.Print("Y =" Linei.StartPoint(1).ToString)

Case ""

End Select

End Sub

本文名称：vb点虐与cad版本 vbnet vb区别
文章位置：http://scjbc.cn/article/ddcihjs.html