VB.Net读取AutoCAD图纸

发布网友发布时间：2022-05-01 12:15

共3个回答

热心网友时间：2023-10-11 13:55

如果可以的话请把分给我

　　以下是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 ""
                Case ""

End Select

End Sub

热心网友时间：2023-10-11 13:55

我只能用VBA，不知道与VB.NET有多少相通之处，VBA实现你所说的功能是并不难。
我给个VBA示例吧
Public Sub TEST()
'这是一段vba程序
'在屏上框选图元，它会自动过滤，只选直线和圆
'然后依次弹出消息框，给出示例信息

'本例经过测试通过，你可以在autocad的-工具-宏-Visual Basic编辑器粘上这段代码，观察运行
'但在2010以上版本，可能需要安装VBA模块
'
Dim a As AcadSelectionSet
'定义选择集注意vba里用的thisdrawing,在vb.net要替换成指向活动文档的语句
Set a = ThisDrawing.SelectionSets.Add("gddfg")
Dim daty(3) As Integer
Dim dav(3) As Variant
Dim p1 As Variant
Dim p2 As Variant
Dim ent As AcadEntity
'设定过滤条件
daty(0) = -4
daty(1) = 0
daty(2) = 0
daty(3) = -4
dav(0) = "<OR"
dav(1) = "Line"
dav(2) = "Circle"
dav(3) = "OR>"
a.SelectOnScreen daty, dav '在屏上选择
'遍历选择集，弹出消息
For Each ent In a
If ent.ObjectName = "AcDbLine" Then
p1 = ent.StartPoint
p2 = ent.EndPoint
MsgBox "这是一条线，起点坐标X:" & Round(p1(0), 2) & " Y:" & Round(p1(1), 2) & " 终点坐标X:" & Round(p2(0), 2) & " Y:" & Round(p2(1), 2)
Else
p1 = ent.Center
MsgBox "这是一个圆，圆心坐标X:" & Round(p1(0), 2) & " Y:" & Round(p1(1), 2) & " 半径:" & Round(ent.Radius, 2)

End If
Next ent
'删除不用的选择集
a.Delete
End Sub追问谢谢你的回答！VBA的研究过了。因为这功能是我整个系统里面的一个模块功能之一。所以希望能够使用完全的vb.net代码。谢谢！

热心网友时间：2023-10-11 13:56

我给你一个cmd58网上的源码吧，VB6.0和VB.NET除了新增控件类成员，其他区别不是很大

连接地址：http://www.cmd58.com/Ku_showart.asp?id=2176

追问谢谢你的回答！vb.net 和vb6的差别可大了去了。我是从vb6转到vb.net的。因为这功能是我整个系统里面的一个模块功能之一。所以希望能够使用完全的vb.net代码。谢谢！

热心网友时间：2023-10-11 13:55

如果可以的话请把分给我

    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

End Select

End Sub

热心网友时间：2023-10-11 13:55

热心网友时间：2023-10-11 13:56

我给你一个cmd58网上的源码吧，VB6.0和VB.NET除了新增控件类成员，其他区别不是很大

连接地址：http://www.cmd58.com/Ku_showart.asp?id=2176