怎么实现让cad自动读excel数据画图

naughtypack

每次都做这样的重复性的工作:比如

    x      y

 12811.688,36918.762
12814.688,36921.630
12830.933,36910.515
12833.933,36909.414
12833.933,36909.706
12836.933,36912.807
12853.028,36898.523
12856.028,36897.613
12856.028,36897.789
12859.028,36900.543
12875.735,36893.257
12878.735,36891.911
12878.735,36891.935
12881.735,36895.341
12899.108,36887.486
12902.108,36886.197
12902.108,36885.334
12905.108,36888.383
把他复制到cad里面自动连线画图

有没有什么方法让其自动读数，画线呢，请高手指教啊

wylong

你的这个不用通过编程解决，可以借助使用绘制多段线的方法快速绘出曲线。

 

步骤1、选出所需画线的点的坐标值，如上图中B列数据，将其复制到剪贴板上，

步骤2、打开 AutoCAD，在命令行键入“pline” (画多段线线命令)，出现提示：“指定起点：”，再在此位置处点击鼠标右键，弹出菜单，在菜单中选“粘贴”命令，这样在Excel中的坐标值就传送到了AutoCAD中，并自动连接成曲线，单击鼠标右键，取消继续画线状态，曲线就画好了。

nhy12345678

其实简单，在CAD文件的同一目录存放EXCEL表格文件，本程序文件名为：data.xls  电子表格的第一个格子放X坐标，第二个格子放Y坐标，在下一行就放另外一个断点的坐标:如下所示

0	0
10	10
15	35
48	69
79	62
48	97

以下为代码部分：

Sub excelspl()
Dim plineObj As AcadLWPolyline
Dim attrtxt0 As String
Dim attrtxt1 As String
Dim corow As Long
Dim p
Set excelapp = CreateObject("excel.application")  '激活excel程序
excelapp.Workbooks.Open (ThisDrawing.path & "/data.xls") '打开工作薄,同CAD文件一个目录ThisDrawing.path
Set excelsheet = excelapp.ActiveWorkbook.Sheets("sheet1") '当前工作表为sheet1
corow = excelsheet.UsedRange.Rows.Count '计算工作表的总行数
ReDim p(0 To (corow * 2 - 1)) As Double '定义点坐标
For i = 1 To corow
  attrtxt0 = excelsheet.Cells(i, 1).Value  'X坐标
  attrtxt1 = excelsheet.Cells(i, 2).Value  'Y坐标
  p((i - 1) * 2) = Val(attrtxt0)
  p((i - 1) * 2 + 1) = Val(attrtxt1)
Next i
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多义线
End Sub

本代码测试通过！

rongyifei

学习了!

mtldsw

弱弱的问，这个程序怎么使用？

rural_cat

谢谢，学习了!

albert118

谢谢

yangw761

想问下高手，要是有很多行很多列的三维坐标点该如何处理啊？

helloworld87

vba吧，应该是的。。

xiaowen

多谢分享,学习一下.