[求助]：求能够读写cad文件的第三方库

jxfzcgh

有没有能够实现这种功能的第三方开发包（不要AutoCad支持）：
我想把一些常用的符号库、线型库包含在一个dwt模板文件中，然后在需要的时候以该文件为模板，直接引用其中的符号块、线型定义创建一个新的dwg文件，并添加块、引用模板的线型等。
目前我是用的VB+Autocad运行库，我想用其他东西替换掉autocad运行库，使得程序可移植性强一点，各位能否推荐一个好的办法

Private Sub Command1_Click()
    Dim objAutoCad As AutoCAD.AcadApplication
    Dim objCadDocument As AutoCAD.AcadDocument
   
    Set objAutoCad = GetCadApplication
    If objAutoCad Is Nothing Then Exit Sub
   
    Set objCadDocument = objAutoCad.Documents.Add(App.path & "\Templates\CadDwgnew.dwt")
    objAutoCad.Visible = True
   
    With objCadDocument.ModelSpace
        Dim objCadPoint As AutoCAD.AcadPoint
        Dim arrPoint(2) As Double
        arrPoint(0) = 1000
        arrPoint(1) = 1000
        arrPoint(2) = 0
        
        .InsertBlock arrPoint, "微波站", 1, 1, 1, 0  '这个 微波站 符号就是 CadDwgNew.dwg模板中已经定义的符号块
    End With
End Sub

Private Function GetCadApplication() As AutoCAD.AcadApplication
On Error Resume Next
   
    Set objAutoCad = GetObject(, "Autocad.application")
    If objAutoCad Is Nothing Then
        Set objAutoCad = New AutoCAD.AcadApplication
    End If
   
    If objAutoCad Is Nothing Then
        MsgBox "启动AutoCad失败，请联系管理员！", vbInformation, "系统信息"
    Else
        Set GetCadApplication = objAutoCad
    End If
End Function

zhquj

能够脱离autocad操作dwg的，目前有dwgdirect库。需要的话，可以跟我联系qq：841088257