[求助]：如何才能利用excel的数据自动绘图

horse

谢谢

xzg_hello

最初由 钝刀 发布
我编写了一个小程序在Autocad200 运行时使用， EXCel 应为2000版，你可以试试看。

对于空文件名会出错退出

efan2000

最好取消打开文件时不要启动Excel，Word也一样。

horse

最初由 钝刀 发布
[B]我编写了一个小程序在Autocad200 运行时使用， EXCel 应为2000版，你可以试试看。 [/B]

用不了，能不能上传说明文件?多谢。

wufei1

xp版可以吗？

efan2000

以下是调用Excel的例子，大家可以参考一下。
Excel文件包含在附件中。

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     Dim xlApp As Object
   
6.     Dim i As Integer
   
7.     Dim r As Range
   
8.     Dim Pt(0 To 2) As Double
   
9.    
   
10.     On Error Resume Next
    
11.     Set xlApp = GetObject(, "Excel.Application")
    
12.     If Err Then
    
13.         Err.Clear
    
14.         Exit Sub
    
15.     End If
    
16.     For i = 3 To xlApp.ActiveSheet.UsedRange.Rows.Count
    
17.         Set r = xlApp.ActiveSheet.Range("C" & i)
    
18.         If IsNumeric(r) Then
    
19.             Pt(0) = r
    
20.             Pt(1) = r.Offset(0, 1)
    
21.             Pt(2) = 0
    
22.             ThisDrawing.ModelSpace.AddText r.Offset(0, -1), Pt, 2.5
    
23.         End If
    
24.     Next
    
25. End Sub
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Test()<br />     Dim xlApp As Object<br />     Dim i As Integer<br />     Dim r As Range<br />     Dim Pt(0 To 2) As Double<br />     <br />     On Error Resume Next<br />     Set xlApp = GetObject(, "Excel.Application")<br />     If Err Then<br />         Err.Clear<br />         Exit Sub<br />     End If<br />     For i = 3 To xlApp.ActiveSheet.UsedRange.Rows.Count<br />         Set r = xlApp.ActiveSheet.Range("C" & i)<br />         If IsNumeric(r) Then<br />             Pt(0) = r<br />             Pt(1) = r.Offset(0, 1)<br />             Pt(2) = 0<br />             ThisDrawing.ModelSpace.AddText r.Offset(0, -1), Pt, 2.5<br />         End If<br />     Next<br /> End Sub<br />   [/FONT]<br />

efan2000

附上效果图，其中省略了一点偏差很大的点。

xiaoyuemin

我这里有了个东西，可以解决，可文件稍大，上传不了，！

XDSoft

最初由 xiaoyuemin 发布
[B]我这里有了个东西，可以解决，可文件稍大，上传不了，！ [/B]

用WINRAR 多卷压缩下吧，分别传到论坛来。谢谢！

钝刀

适用于Autocad2002 ,Excel XP.

XDSoft

最初由 钝刀 发布
[B]适用于Autocad2002 ,Excel XP. [/B]

这个工具是你写的吗？给大家介绍下思路和用法吧，截些图片上来，谢谢！

钝刀

使用说明

HSXLJWHT

可以用cell(x,y),range()等函数，取得excel中数据，然后编程读入即可完成各种工作。

horse

最初由 钝刀 发布
[B]适用于Autocad2002 ,Excel XP. [/B]

我在Autocad2002 ,Excel2000下出错，用不了，能不能提供一个能在Autocad2002 ,Excel2000下使用的，谢谢。

cad

打开记事本，用在命令行写命令的格式一样网下写，注意不能用快捷键。然后将文件保存成.scr后缀的文件，到CAD里运行SCR命令，打开刚才保存的文件就好了
比如
pline
1,2
2,3
3,4
5,7
c
zoom
e