[分享]：巧借EXCEL在AUTOCAD中绘曲线

YZWQS

在工程计算时，经常要用AutoCAD画出一条曲线，而这条曲线如果是由多个坐标点连接成的，输入起来就麻烦，而且容易出错。如果利用EXCEL应用程序来保存数据，并与CAD巧妙地结合起来，就能很容易地画出该曲线。具体方法为
　　首先，在Excel中输入坐标值。我们将x坐标值放入A列，y坐标值放入到B列，再将A列和B列合并成C列，由于AutoCAD中二维坐标点之间是用逗号隔开的，所以我们在C2单元格中输入：“=A2&“,“&B2”，C2中就出现了一对坐标值。我们用鼠标拖动的方法将C2的的公式进行复制，就可以得到一组坐标值。
　　其次，选出所需画线的点的坐标值，如上例中C列数据，将其复制到剪贴板上，即按Excel中的复制按钮来完成此工作。

　　最后，打开AutoCAD，在左下角处可以看见命令行(左下图)，
　　在“command”后键入“spline” (画曲线命令)，出现提示：“Object/：”，再在此位置处点击鼠标右键，弹出菜单，在菜单中选“Paste”命令，这样在Excel中的坐标值就传送到了AutoCAD中，并自动连接成曲线，单击鼠标右键，取消继续画线状态，曲线就画好了。
　　通过上面的方法，可以很方便地绘制各种曲线或折线，并且在Excel中很容易地修改并保存坐标值。

本帖子转自：http://ldstruc.com/dispbbs.asp?boardID=4&ID=207

lightwang

还真没用过这功能

fjbl

用记事本也行

pandoit

不错，这种方法！以前我都做成脚本文件的

Kosilin

这个方面的确妙!
我记得ahlzl 以前有一个绘制弹簧贴子,就是这个办法.大家也可以去参考参考!

wangshu

能详细说明步骤吗？上述方法好像不行

zxm99

同样，利用EXCEL，输入=c2&","&b2&","&d2  可以输入三维坐标

dqq888

我想知道，用这个办法来画缓和曲线，缓和曲线的长度准确吗？

ahlzl

最初由 dqq888 发布
[B]我想知道，用这个办法来画缓和曲线，缓和曲线的长度准确吗？ [/B]

如果有准确的数学关系，设置足够的节点，一切都是准确的。可看看我的三维螺旋线贴子。（http://www.xdcad.net/forum/showt ... p;threadid=50077）

shirley9996

今天我刚做完这样一条曲线，我用写字板做的，差不了多少。

nh123

究竟哪一种方便？

ahlzl

最初由 nh123 发布
[B]究竟哪一种方便？ [/B]

如果要达到很高的精度，就要很多节点，那么用LISP和VBA比用EXCEL更方便、更快！

nightgale

能否实现在EXCEL中输入坐标，CAD中就动态刷新？！或则其有他的方法实现外部大量数据处理到CAD中吗？本人初学，请多。。。

Laoyao

如果X,Y,Y之间有函数关系,还是用LISP和VBA比用EXCEL更方便、更快！

------------------------------------
从EXCEL动态更新ACAD的一例

2. 
   
3.   [FONT=courier new]
   
4. Dim acadApp As AcadApplication
   
5. Dim acadDoc As AcadDocument
   
6. Dim myCircle As AcadCircle
   
7. 
   
8. Sub test()
   
9.     On Error Resume Next
   
10.     Dim Center(0 To 2) As Double
    
11.     Dim Radius As Double
    
12.     Dim i As Integer
    
13.     '打开ACAD
    
14.     Set acadApp = New AcadApplication
    
15.     acadApp.Visible = True
    
16.    
    
17.     Set acadDoc = acadApp.ActiveDocument
    
18.     If Err Then
    
19.         acadApp.Documents.Add
    
20.         Set acadDoc = acadApp.ActiveDocument
    
21.         Err.Clear
    
22.     End If
    
23.    
    
24.     '读取数据 本例为SHEET1的A1至D1
    
25.     For i = 0 To 2
    
26.         Center(i) = Sheet1.Cells(1, i + 1).Value
    
27.     Next
    
28.     Radius = Sheet1.Cells(1, 4).Value
    
29.     '画圆
    
30.     Set myCircle = acadDoc.ModelSpace.AddCircle(Center, Radius)
    
31.     myCircle.Update
    
32. End Sub
    
33. 
    
34. Private Sub Worksheet_Change(ByVal Target As Range)
    
35.      '判断CHANGE是否在数据区内
    
36.      If (Target.Row = 1 And Target.Column <= 4) Then
    
37.         Dim Center(0 To 2) As Double
    
38.         Dim i As Integer
    
39.    
    
40.         For i = 0 To 2
    
41.             Center(i) = Sheet1.Cells(1, i + 1).Value
    
42.         Next
    
43.         
    
44.         myCircle.Radius = Sheet1.Cells(1, 4).Value
    
45.         myCircle.Center = Center
    
46.         myCircle.Update
    
47.     End If
    
48.    
    
49. End Sub
    
50. 
    
51. 
    
52.   [/FONT]
    

<br />   [FONT=courier new]<br /> Dim acadApp As AcadApplication<br /> Dim acadDoc As AcadDocument<br /> Dim myCircle As AcadCircle<br /> <br /> Sub test()<br />     On Error Resume Next<br />     Dim Center(0 To 2) As Double<br />     Dim Radius As Double<br />     Dim i As Integer<br />     '打开ACAD<br />     Set acadApp = New AcadApplication<br />     acadApp.Visible = True<br />     <br />     Set acadDoc = acadApp.ActiveDocument<br />     If Err Then<br />         acadApp.Documents.Add<br />         Set acadDoc = acadApp.ActiveDocument<br />         Err.Clear<br />     End If<br />     <br />     '读取数据 本例为SHEET1的A1至D1<br />     For i = 0 To 2<br />         Center(i) = Sheet1.Cells(1, i + 1).Value<br />     Next<br />     Radius = Sheet1.Cells(1, 4).Value<br />     '画圆<br />     Set myCircle = acadDoc.ModelSpace.AddCircle(Center, Radius)<br />     myCircle.Update<br /> End Sub<br /> <br /> Private Sub Worksheet_Change(ByVal Target As Range)<br />      '判断CHANGE是否在数据区内<br />      If (Target.Row = 1 And Target.Column <= 4) Then<br />         Dim Center(0 To 2) As Double<br />         Dim i As Integer<br />     <br />         For i = 0 To 2<br />             Center(i) = Sheet1.Cells(1, i + 1).Value<br />         Next<br />         <br />         myCircle.Radius = Sheet1.Cells(1, 4).Value<br />         myCircle.Center = Center<br />         myCircle.Update<br />     End If<br />     <br /> End Sub<br /> <br /> <br />   [/FONT]<br />

pandoit

那么我想问一个问题，我们所画的曲线是用增加点的密度来更好的模拟线形曲线的，有没有什么办法直接就用线形公式画一条曲线，我一般画曲线也是用和大家差不多的方法然后再拟合的。