wangzezhig 发表于 2005-3-18 14:07:00

关于读取EXCEL数据的问题？

为了计算一段街道平面面积，我从外边测量了上千个数据点并编了号，放在EXCEL里，现在要把每个数据点画上并标上点号，以便画出轮廓线计算面积，我知道这个不难但我是个新手有没有哪位大哥给段源码或指导一下？？？？？？？


我用VBA做了，但我不知道怎么读出EXCEL的数据？？？？？

marxbat 发表于 2005-3-18 17:05:00

将每个点坐标以“X，Y”的形式放在EXCEL单元格中，每个单元格放一个，所有点坐标输入在同一列单元格中，然后复制这些单元格。


在CAD中点画直线工具，然后光标移动到命令行上点右键，选粘贴。所有点就以直线方式连在一起了。

cnks 发表于 2005-3-18 20:13:00

读取excel简单，我们论坛上源码到处都是。

wangzezhig 发表于 2005-3-19 19:28:00

marxbat发表于2005-3-18 17:05:00static/image/common/back.gif将每个点坐标以“X，Y”的形式放在EXCEL单元格中，每个单元格放一个，所有点坐标输入在同一列单元格中，然后复制这些单元格。



在CAD中点画直线工具，然后光标...


<BR>兄台这个办法不行啊，我要每个点标上点号的嘛，我只需要画出点，       每个点标上点号就行了，画线用手工画，因为街道不是按点号顺序画线的！


感谢        <A name=16169><FONT color=#000066><B>yulijin608</B></FONT></A> 给了一段代码，我再试试


<IMG alt=发贴心情 border=0 src="skins/default/topicface/face1.gif">        <B></B><BR>                       '定义Excel的相关变量<BR>                       Dim Excel As Excel.Application       'Excel对象变量<BR>                       Dim PointSheet As Object                                                       '点表<BR>                       Dim LineSheet As Object                                                               '线表<BR>                       Dim ExcelWorkBook As Object                               '工作薄





                       Set Excel = CreateObject("Excel.Application")               '初始化 Excel对象<BR>                       Set ExcelWorkBook = Excel.Workbooks.Open(txtFile, , True) 'txtFile为文件名<BR>                       Set PointSheet = Excel.Worksheets(1)                       '点表<BR>                       Set LineSheet = Excel.Worksheets(2)                               '线表<BR>                       PointSheet.Activate


               msgbox PointSheet.Cells(1,1).Value


                       Excel.Quit<BR>                       Set PointSheet = Nothing<BR>                       Set LineSheet = Nothing<BR>                       Set ExcelWorkBook = Nothing<BR>                       Set Excel = Nothing


<BR>

tong121ton 发表于 2005-4-9 00:50:00

其实可以将EXCEL的数据有用的部分，x，y，z坐标和点号集中到一张工作簿中，而后另存为text文件，再随便编个LISP程序导入CAD绘图即可。我就是这样一次性在10分钟内输入3000个点的。
页: [1]
查看完整版本: 关于读取EXCEL数据的问题？