[建议]：也谈 如何实现 Excel 的数据自动绘图?

rave

如何实现 Excel 的数据自动绘图?

我们其实可以直接利用Excel 的VBA访问ACAD来实现。
VBA最早在Excel上实现, 其次才是Word/Access ..... AutoCAD...
换个角度，用Excel VBA也许会比从Acad中来访问Excel方便得多，很多问题(麻烦)将会不复存在

请看下面的例子
请在Excel中运行
把这段宏改改，保存在你的xls文件中吧

2. 
   
3. Public Sub 坐标标注()
   
4.   Dim acadApp As AcadApplication
   
5.   Dim i As Integer
   
6.   Dim pt(0 To 2) As Double
   
7.   Dim actext As AcadText
   
8.   Dim text As String
   
9.   
   
10.   On Error Resume Next
    
11. 
    
12.   Set acadApp = GetObject(, "AutoCAD.Application")
    
13.   If Err Then
    
14.     Err.Clear
    
15.     Set acadApp = CreateObject("AutoCAD.Application")
    
16.     If Err Then
    
17.       MsgBox Err.Description
    
18.       Exit Sub
    
19.     End If
    
20.     acadApp.Visible = True
    
21.   End If
    
22.   
    
23.   ' 运行本过程前，请先选定需要处理的坐标数据
    
24.   With ActiveWindow.RangeSelection
    
25.     For i = 1 To .Rows.Count
    
26.       pt(0) = .Cells(i, 1)
    
27.       pt(1) = .Cells(i, 2)
    
28.       pt(2) = 0
    
29.       text = pt(0) & "," & pt(1)
    
30.   
    
31.       Set actext = acadApp.ActiveDocument.ModelSpace.AddText(text, pt, 2)
    
32.     Next
    
33.   End With
    
34. End Sub
    

<br /> Public Sub 坐标标注()<br />   Dim acadApp As AcadApplication<br />   Dim i As Integer<br />   Dim pt(0 To 2) As Double<br />   Dim actext As AcadText<br />   Dim text As String<br />   <br />   On Error Resume Next<br /> <br />   Set acadApp = GetObject(, "AutoCAD.Application")<br />   If Err Then<br />     Err.Clear<br />     Set acadApp = CreateObject("AutoCAD.Application")<br />     If Err Then<br />       MsgBox Err.Description<br />       Exit Sub<br />     End If<br />     acadApp.Visible = True<br />   End If<br />   <br />   ' 运行本过程前，请先选定需要处理的坐标数据<br />   With ActiveWindow.RangeSelection<br />     For i = 1 To .Rows.Count<br />       pt(0) = .Cells(i, 1)<br />       pt(1) = .Cells(i, 2)<br />       pt(2) = 0<br />       text = pt(0) & "," & pt(1)<br />   <br />       Set actext = acadApp.ActiveDocument.ModelSpace.AddText(text, pt, 2)<br />     Next<br />   End With<br /> End Sub<br />

我见过用Office VBA作的信息管理系统，酷！

efan2000

其实无论是从Excel中调用AutoCAD，还是从AutoCAD中调用Excel都没什么关系，它们之间都是通过ActiveX来相互传递数据的。只不过你的工作的重心在哪，因为对于外部调用的速度远比内部调用来的慢。