欢迎来到皮皮网官网

【Linux驱动模块源码】【Geatpy 源码】【localdatetime源码】autocad软件源码_cad源码大全

时间:2024-12-26 02:33:14 来源:免单采集网源码

1.VB.Net读取AutoCAD图纸
2.Autocad2004完全解密版

autocad软件源码_cad源码大全

VB.Net读取AutoCAD图纸

       å¦‚果可以的话请把分给我

       ã€€ã€€ä»¥ä¸‹æ˜¯cad版的,引用autocad type library 和autocad/objectdbx common 如果是或者版本更低的只要引用autocad type library,代码的话大同小异,思路是一样的

 

       ã€€ã€€

           Private Sub Form1_Load(ByVal sender As System.Object,源码Linux驱动模块源码 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

Autocad完全解密版

       AutoCAD 迷你版 v0.2

       /HTML/.html

       AutoCAD +SP1 龙卷风会员版

       /HTML/.html

       AutoCAD 简体中文免注册自动激活版

       /HTML/.html

copyright © 2016 powered by 皮皮网   sitemap