抛物线和悬线画法（excel）

谁给传个画抛物线的lisp啊,感谢

1.在EXCEL生成坐标X,Y列；X为分段值控制曲线精度，Y为公式计算的对应值；
2.假定EXCEL中X数值在A列，Y数值在B列，生成ACAD的PLINE绘图数据，方法如下：
(1)在新的列单元（如C列）输入公式：=An&","&Bn（n为数据的行号），按次办法将An及Bn单元格中的数据在Cn单元格中形成(x,y)的形式。关键是生成逗号。
(2)拷贝Cn的公式(Cn单元格按CTRL拖动)，形成绘图数据列。
(3)拷贝绘图数据列（C列中的数据）。
3.在ACAD中执行PLINE命令，输入PL回车后的命令行处按鼠标的右键，选粘贴命令，将从EXCEL中拷贝的数据粘贴到此处。
4.搞定（PL命令按x1,y1...x2,y2...xn,yn的形式绘制曲线。）

原帖由 sjbiao2003 于 2007-12-9 20:49 发表

                               
登录/注册后可看大图

1.在EXCEL生成坐标X,Y列；X为分段值控制曲线精度，Y为公式计算的对应值；
2.假定EXCEL中X数值在A列，Y数值在B列，生成ACAD的PLINE绘图数据，方法如下：
(1)在新的列单元（如C列）输入公式：=An&","&Bn（n为数据的 ...

楼上正解
悬链线也是这么画的，全面的资料如下：

利用EXCEL在AutoCAD中快速绘图

CAD的绘图其实是执行命令，因此当在CAD中绘制一些图时可以按照CAD的输入格式，把绘图的所有命令和绘图数据在word、记事本或EXCEL等文本编辑器中编辑好后选中复制，再到CAD中，鼠标放在命令行上按右健，出现小菜单后点击粘贴即可。
由于在工程绘图中往往涉及到很多的计算，所以本人建议采用在EXCEL中输入绘图的命令和数据比较合适。
对于一般的绘图上述这些方法可能大多数朋友都已掌握，可是对于批量的文本标注等光采用上述办法还不行，需要一些小技巧。
现本人就以绘制线路征地图(要求标上各桩号和征地宽度)为例(本例共12个桩号)说明上述的这些方法：
1.分别打开CAD和EXCEL
2.选择EXCEL
3.从第2行开始分别在A列输入各桩号、B列输入左幅的征地宽度为“＋”、C列输入右幅的征地宽度为“－”
4.在D1单元格键入_line，在D2单元格键入公式=MIN(A2:A13)&","&0，在D3单元格键入公式=MAX(A2:A13)&","&0
5.在E2单元格键入_line
6.在F1单元格键入_line，在F2单元格键入公式=A2&","&B2
7.在G1单元格键入_line，在G2单元格键入公式=A2&","&C2
8.在H2单元格键入一个空格
9.选中单元格区域“E2:H2”，然后下拉复制直至第13行，删除单元格H13内的空格使其为空
10.在I2单元格键入_text，在J2单元格键入j，在K2单元格键入bc，在L2单元格键入公式=A2&","&(B2/2)，在M2单元格键入2.5，在N2单元格键入-90，在O2单元格键入公式=ABS(B2)，设置O2单元格公式为“0.000”
11.选中单元格区域“D1: D4”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时绘出线路中线
12.转到EXCEL选中单元格区域“F1:F14”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时绘出左幅征地界
13.转到EXCEL选中单元格区域“G1:G14”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时绘出右幅征地界
14.转到EXCEL选中单元格区域“E2:H13”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时绘出征地宽度线
15.转到EXCEL选中单元格区域“I2:O3”（注：两行七列，后一行为空白数据），下拉复制直至第13行
16.选中单元格区域“I2:O13”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时标注出第奇数个的左幅征地宽度
17.转到EXCEL，删除单元格区域“I4:O12”，然后选中单元格区域“I2:O2”下拉复制一行
18.选中单元格区域“I3:O4”（注：两行七列，后一行为空白数据），下拉复制直至第14行
19.选中单元格区域“I3:O14”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时标注出第偶数个的左幅征地宽度
20.转到EXCEL，删除单元格区域“I3:O13”，然后修改单元格L2公式为=A2&","&(C2/2)，修改单元格O2公式为=ABS(C2)
21.选中单元格区域“I2:O3”（注：两行七列，后一行为空白数据），下拉复制直至第13行
22.选中单元格区域“I2:O13”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时标注出第奇数个的右幅征地宽度
23.转到EXCEL，删除单元格区域“I4:O12”，然后选中单元格区域“I2:O2”下拉复制一行
24.选中单元格区域“I3:O4”（注：两行七列，后一行为空白数据），下拉复制直至第14行
25.选中单元格区域“I3:O14”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时标注出第偶数个的右幅征地宽度
26.转到EXCEL，删除单元格区域“I3:O13”，然后修改单元格K2内容为tc，修改单元格L2公式为=A2&","&0，修改单元格O2公式为=A2，重新设置O2单元格公式为“K0+000”
27.选中单元格区域“I2:O3”（注：两行七列，后一行为空白数据），下拉复制直至第13行
28.选中单元格区域“I2:O13”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时标注出第奇数个的桩号
29.转到EXCEL，删除单元格区域“I4:O12”，然后选中单元格区域“I2:O2”下拉复制一行
30.选中单元格区域“I3:O4”（注：两行七列，后一行为空白数据），下拉复制直至第14行
31.选中单元格区域“I3:O14”复制，然后转到CAD，鼠标放在命令行上按右健，出现小菜单后点击粘贴，此时标注出第偶数个的右幅征地宽度
执行完上述即可完成征地图的绘制

好好研究一下，谢谢楼主们了。。。。。。。。。

感觉挺神奇的

不错。。。以前在学校没怎么学会。。现在会了。。

好神奇，一定学习