作者sjgau (sjgau)
看板Cad_Cae
标题Re: 昨天忘记回答的问题
时间Wed Jul 29 09:59:15 2009
以下，是 完整，经过测试的 示范程式。
敬请 参考
#include <stdio.h>
int main()
{
FILE *f1;
double x1, y1, r1;
x1= 123.456; y1= 789.012;
r1= 34.56;
f1= fopen("VC-TEST.SCR", "wt");
fprintf(f1, "circle %.4lf,%.4lf %.4lf\n", x1, y1, r1);
fprintf(f1, "zoom e\n");
fprintf(f1, "regen\n");
// 以上，对於 '\n' 和 ' ' 和 %.4lf 和 ',' 的使用，
// 都要 非常谨慎
fclose(f1);
return 0;
}
※ 引述《sjgau (sjgau)》之铭言：
: 为何不建议使用 VB, VBA, VB.Net 作为
: AutoCAD 外部程式的工具。
: 因为，AutoCAD script file 的特性，
: 对於 空格和 跳行符号非常敏感。
: 空白，等於 Enter, 等於 跳行。
: 所以，你所使用的程式语言工具，
: 必须能够精确控制 空格的数量，
: 跳行控制符号的数量。
: 底下，是一个 C的范例。
: FILE *f1;
: f1= fopen("test.scr", "wt");
: // create 一个 new file, file name= "test.scr"
: // is a text file
: fprintf(f1, "circle %.3lf,%.3lf %.3lf\n", 12.34, 56.78, 90.12);
: fprintf(f1, "zoom e regen\n");
: // 以上，叫 AutoCAD 自动画一个圆，
: // 画完以後，自动 缩放到极限，自动重生
: fclose(f1);
: ※ 引述《wobi (小比)》之铭言：
: : 感谢高老师今日的LISP指导及交流
: : 从早上到快傍晚 指导了 7 小时
: : 使我受益良多 十分感谢
: : 期待LISP摸熟後 再次请教高老师
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.231.84.228