vb2005在cad中的问题

王子才76

大侠们帮我看看,下面代码的最后一行错了，知怎么更正。
Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication
        Dim acaddoc As HtmlDocument
        On Error Resume Next
        acadapp = GetObject(, "AutoCAD.Application")      '连接到CAD应用软件
        If Err.Number Then
            Err.Clear()
            acadapp = CreateObject("AutoCAD.Application") '创建CAD对象
            If Err.Number Then
                MsgBox("请检查是否安装了CAD！")
                Exit Sub
            End If
        End If
        acadapp.Visible = True
        acaddoc = acadapp.ActiveDocument   '设置CAD为活动文档

        Dim lineobj As AcadLine               '绘制断面图
        Dim arcobj As AcadArc
        Dim shuhao, total As Integer
        Dim yxx, yxy, r, barc, earc, lx, Radius, startangle, endangle, weiyan As Double
        Dim startpoint(0 To 2) As Double
        Dim endpoint(0 To 2) As Double
        Dim centerpoint(0 To 2) As Double
        Dim arc As String
        weiyan = Val(TextBox8.Text)   '衬砌厚度
        Dim shuhao3 As Integer
        Dim qdzh, zdzh, qddmg, zddmg, h4, k As Double
        lineobj = acaddoc.ModelSpace.AddLine(startpoint, endpoint

题示：ModelSpace不是system.windows.forms.HTMLdocument的成员
       我该怎么做呢？

huaxiamengqing

感觉你VBA 和.net用混了。你可以引用 CAD  type library 继续使用VBA方法来创建直线。也可以使用VBA方法，首先引用acmgd.dll  acdbmgd.dll 然后代码如下：

2. Imports Autodesk.AutoCAD.Runtime
   
3. Imports Autodesk.AutoCAD.ApplicationServices
   
4. Imports Autodesk.AutoCAD.DatabaseServices
   
5. Imports Autodesk.AutoCAD.Geometry
   
6. 
   
7. <CommandMethod("AddLine")> _
   
8. Public Sub AddLine()
   
9.   '' 获得当前文档和数据库   Get the current document and database
   
10.   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
    
11.   Dim acCurDb As Database = acDoc.Database
    
12. 
    
13.   ''启动一个事务   Start a transaction
    
14.   Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
    
15. 
    
16.       '' 以只读方式打开块表   Open the Block table for read
    
17.       Dim acBlkTbl As BlockTable
    
18.       acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
    
19. 
    
20.       '' 以写方式打开模型空间块表记录   Open the Block table record Model space for write
    
21.       Dim acBlkTblRec As BlockTableRecord
    
22.       acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
    
23.                                       OpenMode.ForWrite)
    
24. 
    
25.       '' 创建一条起点为（5，5，0），终点为（12，3，0）的直线  Create a line that starts at 5,5 and ends at 12,3
    
26.       Dim acLine As Line = New Line(New Point3d(5, 5, 0), _
    
27.                                     New Point3d(12, 3, 0))
    
28. 
    
29.       acLine.SetDatabaseDefaults()
    
30. 
    
31.       '' 添加新对象到块表记录和事务中   Add the new object to the block table record and the transaction
    
32.       acBlkTblRec.AppendEntity(acLine)
    
33.       acTrans.AddNewlyCreatedDBObject(acLine, True)
    
34. 
    
35.       '' 保存新对象到数据库中   Save the new object to the database
    
36.       acTrans.Commit()
    
37.   End Using
    
38. End Sub
    

Imports Autodesk.AutoCAD.Runtime<br /> Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.DatabaseServices<br /> Imports Autodesk.AutoCAD.Geometry<br /> <br /> <CommandMethod("AddLine")> _<br /> Public Sub AddLine()<br />   '' 获得当前文档和数据库   Get the current document and database<br />   Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />   Dim acCurDb As Database = acDoc.Database<br /> <br />   ''启动一个事务   Start a transaction<br />   Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()<br /> <br />       '' 以只读方式打开块表   Open the Block table for read<br />       Dim acBlkTbl As BlockTable<br />       acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)<br /> <br />       '' 以写方式打开模型空间块表记录   Open the Block table record Model space for write<br />       Dim acBlkTblRec As BlockTableRecord<br />       acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _<br />                                       OpenMode.ForWrite)<br /> <br />       '' 创建一条起点为（5，5，0），终点为（12，3，0）的直线  Create a line that starts at 5,5 and ends at 12,3<br />       Dim acLine As Line = New Line(New Point3d(5, 5, 0), _<br />                                     New Point3d(12, 3, 0))<br /> <br />       acLine.SetDatabaseDefaults()<br /> <br />       '' 添加新对象到块表记录和事务中   Add the new object to the block table record and the transaction<br />       acBlkTblRec.AppendEntity(acLine)<br />       acTrans.AddNewlyCreatedDBObject(acLine, True)<br /> <br />       '' 保存新对象到数据库中   Save the new object to the database<br />       acTrans.Commit()<br />   End Using<br /> End Sub<br />

王子才76

楼上的大哥，能不能给个VBA的示例，我以前用VB6编过，现在换成.NET就不懂怎么办了。

王子才76

我现在是CAD能打开，就是直线绘制不出来

sieben

1,    Dim acaddoc As HtmlDocument 应该 是AcadDocument
2， 你的问题在 VBA/VB/ActiveX/API 编程技术 版块更好些。

huaxiamengqing

VB6是VB,VB2005是vb.net，不清楚你到底要用什么编辑器。VBA是CAD自带的编译器，语法同VB6。代码漫天都是。下面是VBA里面添加线的代码，如果用VB6稍作修改就行了。

2. Sub Example_AddLine()
   
3.     ' 该示例在模型空间中添加直线。
   
4.    
   
5.     Dim lineObj As AcadLine
   
6.     Dim startPoint(0 To 2) As Double
   
7.     Dim endPoint(0 To 2) As Double
   
8.    
   
9.     ' 定义直线的起点和终点
   
10.     startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    
11.     endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
    
12.    
    
13.     ' 在模型空间中创建直线
    
14.     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    
15.     ZoomAll
    
16.    
    
17. End Sub
    

Sub Example_AddLine()<br />     ' 该示例在模型空间中添加直线。<br />     <br />     Dim lineObj As AcadLine<br />     Dim startPoint(0 To 2) As Double<br />     Dim endPoint(0 To 2) As Double<br />     <br />     ' 定义直线的起点和终点<br />     startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#<br />     endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#<br />     <br />     ' 在模型空间中创建直线<br />     Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)<br />     ZoomAll<br />     <br /> End Sub<br />