作者sjgau (sjgau)
看板Cad_Cae
标题Re: [问题] autolisp读取excel座标?
时间Sun Aug 31 16:29:41 2008
以下是中间的测试过程的 C 的版本，
采用 simpson 第一法则积分，
目的是 为了证明，
有确实 正确的读到 Excel 产生的数据点。
答案是 y= sin(x), x= 0 to pi
area= 2.000021
理论值是 2.000
#include "stdafx.h"
#include <process.h>
int _tmain(int argc, _TCHAR* argv[])
{
FILE *f1;
double x[100], y[100];
int ct= -1, no, i;
f1= fopen("d:\\book3.txt", "rt");
while (!feof(f1)) {
ct++;
no= fscanf(f1, "%lg %lg\n", &x[ct], &y[ct]);
printf("%5ld, %10.6lf, %10.6lf\n", no, x[ct], y[ct]);
}
printf("\n ct= %d\n", ct);
system("pause");
fclose(f1);
// ------------------------------------------
double sum= 0;
for (i=0;i<=(ct-2);i+= 2) {
sum+= y[i] + 4*y[i+1] + y[i+2];
}
sum= sum*((x[1] - x[0])/3.0);
printf("\n sum= %.6lf\n", sum);
system("pause");
return 0;
}// end of main()
※ 引述《sjgau (sjgau)》之铭言：
: ※ 引述《xko (大家一起想好名字**)》之铭言：
: : 大家好,
: : 请问在excel里已经有很多点的座标,
: : 我要怎麽将那些座标汇入autocad呢?
: 在 excel 里面，另存新档，
: 采用 文字档 (Tab 字元分隔)
: 产生 book3.txt
: 如下面的 C语言程式设计，
: 读 book3.txt, 产生 book4.scr
: 进入 AutoCAD, script 这个 book4.scr
: 即可叫 AutoCAD 自动画图
: : 另外就是汇入後要怎样将那些点自动
: : 连成线呢?
: : thanks
: #include "stdafx.h"
: #include <process.h>
: int _tmain(int argc, _TCHAR* argv[])
: {
: FILE *f1;
: double x[100], y[100];
: int ct= -1, no, i;
: f1= fopen("d:\\book3.txt", "rt");
: while (!feof(f1)) {
: ct++;
: no= fscanf(f1, "%lg %lg\n", &x[ct], &y[ct]);
: printf("%5ld, %10.6lf, %10.6lf\n", no, x[ct], y[ct]);
: }
: printf("\n\n ct= %d\n", ct);
: system("pause");
: fclose(f1);
: // ------------------------------------------
: f1= fopen("d:\\book4.scr", "wt");
: fprintf(f1, "spline\n");
: for (i=0;i<= ct;i++) {
: fprintf(f1, "%.6lf,%.6lf\n", x[i], y[i]);
: }
: fprintf(f1, "\n\n\n");
: fclose(f1);
: printf("\n\n Done!\n");
: system("pause");
: return 0;
: }// end of main()
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.231.145.119