正文

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

IP云
IP云V管理员/4 阅读
03/30
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

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

相关问答

Q1: 启动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的队列中。

这将导致用户不能运行代码，或不能做修改，或不能检查各参数的选择。

Q2: 如何使用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 '界面可视

Q3: 急求！用vb.net提取autocad的结点坐标！

lisp写的vb.net脱离cad，原理很简单，vb.net脱离cad你可以用VB再写一个，源代码直接用文本就可打开

Q4: VB.Net编程提取CAD中的点坐标,采用AcadApp.ActiveDocument.Utility.GetPoint函数老是报错是什么原因啊???

D=AcadApp.ActiveDocument.Utility.GetPoint(,"选择一个点：")

你的参数没有弄对

GetPoint是个方法不是属性必须要括号()

他的两个参数为可选参数（startpoint，prompt）第一个参数是起始点，第二个参数是提示语

Q5: CAD利用VB编程来解决问题

额，慢慢学吧。不过学CAD的二次开发，建议还是起点高些好。一般有几种模式二次开发：

1，autolisp，你学VB的，这个就免了把。

2，利用cad里面的vba，这个好像比较适合你。

3，跨平台开发，利用.NET二次开发，比较酷毙的那种，com托管，大型计算方面慢。

4，objectarx，这个语言可以对cad进行深层次的开发。比如添加命令等，而且运行速度快。用VB.NET就可以采用这种模式进行开发。

建议你直接从objectarx入手，专心2个月就OK了。

关于vb.net脱离cad和vb开发的程序无法脱离vb环境而单独运行的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。