锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net脱离cad vb开发的程序无法脱离vb环境而单独运行

IT技术Weighted

VB.Net读取AutoCAD图纸如果可以的话请把分给vb.net脱离cad我
以下是cad2007版的vb.net脱离cad，引用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 ""
Case ""
End Select
Next
End Sub
启动CAD时显示VBA不再随AUTOCAD一同安装，是怎么回事 ， 以前都不是这样，要怎样解决呢？一 。如何在 VB 中连接 AutoCAD 。启动 VB vb.net脱离cad，引用 AutoCAD 类型库 。操作步骤：从“工程”菜单中选择“引用”选项vb.net脱离cad，启动“引用”对话框 。在“引用”对话框中vb.net脱离cad，选择 AutoCAD 类型库vb.net脱离cad ， 然后单击“确定” 。定义模块级变量 AutoCAD 应用程序 (acadApp) 和当前的文档 (acadDoc) 。如果 AutoCAD 正在运行，使用 GetObject 函数将检索 AutoCAD Application 对象 。如果 AutoCAD 没有运行，使用 CreateObject 函数试图创建一个 AutoCAD Application 对象 。如果创建成功，会启动 AutoCAD；如果失败，则会发生错误 。同时运行多个 AutoCAD 任务时，GetObject 函数会返回 Windows 运行对象表中的第一个 AutoCAD 实例 。要显示 AutoCAD 图形窗口，需要将 AutoCAD 应用程序的 Visible 特性设置为 TRUE 。使用 acadDoc 变量引用当前的 AutoCAD 图形 。
二.如果需用VBA宏来启动一个AutoCAD交互式（内置）对话框，在VBA宏没有执行完之前AutoCAD将不会打开这个对话框 。（直到VBA宏执行完以后，使用ThisDrawing.SendCommand方法执行的AutoLISP命令才被排到AutoCAD的队列中 。
这将导致用户不能运行代码，或不能做修改，或不能检查各参数的选择 。
如何使用vb.net调用cad进行绘图你去查查书吧 ， 书上挺详细的 ， 在这说不好说 ， 你先在项目里引用 。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视
急求！用vb.net提取autocad的结点坐标！lisp写的vb.net脱离cad，原理很简单，vb.net脱离cad你可以用VB再写一个，源代码直接用文本就可打开
VB.Net编程提取CAD中的点坐标,采用AcadApp.ActiveDocument.Utility.GetPoint函数老是报错是什么原因啊???D=AcadApp.ActiveDocument.Utility.GetPoint(,"选择一个点：")
你的参数没有弄对
GetPoint是个方法不是属性必须要括号()
他的两个参数为可选参数（startpoint，prompt）第一个参数是起始点，第二个参数是提示语
CAD利用VB编程来解决问题额 ， 慢慢学吧 。不过学CAD的二次开发，建议还是起点高些好 。一般有几种模式二次开发：

推荐阅读


上一篇：关于如何查看电脑是否安装python匹配的信息

下一篇：怎么编辑微信里的Word，怎么编辑微信里的标签