Re: [心得] 這個C語言程式，可以叫AutoCAD自動畫圖

看板Cad_Cae (電腦輔助設計)作者sjgau (sjgau)時間15年前 (2009/03/12 16:57)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

底下這個程式，讀 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