作者sjgau (sjgau)
看板Cad_Cae
标题Re: [心得] 这个C语言程式，可以叫AutoCAD自动画图
时间Thu Mar 12 16:57:56 2009
底下这个程式，读 excel 产生的 text file,
使用 空格分离 不同栏位。
产生 AutoCAD script file,
即可 教AutoCAD 自动产生图形物件
#include "stdafx.h"
#include <process.h>
// --------------------------------------------------------
int main(int argc, char* argv[])
{
FILE *f1, *f2;
// open the input and output file
if ((f1= fopen("book2a.txt", "rt")) == NULL) {
printf("\n *** error of fopen() of f1\n");
system("pause");
exit(1);
}
if ((f2= fopen("T0435.scr", "wt")) == NULL) {
printf("\n *** error of fopen() of f2\n");
system("pause");
exit(1);
}
printf("\n OK for fopen() of f1 and f2, at 04:37\n");
system("pause");
// ------------------------------------------
// read the data from file
int ct= -1, no, i;
double x[100], y[100];
while (!feof(f1)) {
ct++;
no= fscanf(f1, "%lf %lf", &x[ct], &y[ct]);
if (no != 2) {
ct--;
break;
}
}// end of while
fprintf(f2, "spline\n");
for (i=0;i<=ct;i++) {
printf("%5d, %10.6lf, %10.6lf\n", i, x[i], y[i]);
fprintf(f2, "%.6lf,%.6lf\n", x[i], y[i]);
}
fprintf(f2, "\n\n\n");
fclose(f1);
fclose(f2);
return 0;
}
// --------------------------------------------------------
#if 0
#endif
// --------------------------------------------------------
※ 引述《sjgau (sjgau)》之铭言：
: ※ [本文转录自 C_and_CPP 看板]
: 作者: sjgau (sjgau) 看板: C_and_CPP
: 标题: [心得] 这个C语言程式，可以叫AutoCAD自动画图
: 时间: Wed Nov 9 11:46:31 2005
: 详情，请看以下网页
: http://myblog.pchome.com.tw/sjgau/
: // file: Unit1.cpp, by BCB6
: #pragma hdrstop
: #pragma argsused
: #include "file4.h"
: // ----------------------------------------------
: void main(int argc, char* argv[])
: {
: FILE *f1;
: f1= fopen("test1029.scr", "wt");
: fprintf(f1, "line\n");
: fprintf(f1, "0,0\n");
: fprintf(f1, "100,100\n");
: fprintf(f1, "\n");
: fprintf(f1, "circle\n");
: fprintf(f1, "50,50\n");
: fprintf(f1, "45\n");
: fprintf(f1, "text\n");
: fprintf(f1, "m\n");
: fprintf(f1, "50,50\n");
: fprintf(f1, "10\n");
: fprintf(f1, "0\n");
: fprintf(f1, "QWER\n");
: fclose(f1);
: }// end of main()
: 详情，请看以下网页
: http://myblog.pchome.com.tw/sjgau/
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.231.78.228
1F：推 zerod:推一个 03/18 11:44