[求助]：如何把文件如何把文本文件的内容导入到cad的命令行中

ericeden

通过其他软件把数据转换成下面的格式（txt文件）

L 0,8.4448e-014,0 0,-0.00952083,-0.25 0,-0.0394167,-0.5
L 0,-0.0394167,-0.5 0,0.253549,-0.875 0,0.489522,-1.25
L 0,0.489522,-1.25 0,0.70401,-1.75 0,0.789601,-2.25
L 0,0.789601,-2.25 0,0.723508,-2.775 0,0.479687,-3.3
L 0,0.479687,-3.3 0,0.0992873,-3.8 0,-0.474613,-4.3
L 0,-0.474613,-4.3 0,-1.25774,-4.8 0,-2.26586,-5.3
L 0,-2.26586,-5.3 0,-3.51478,-5.8 0,-5.0202,-6.3
L 0,-5.0202,-6.3 0,-6.79567,-6.8 0,-8.85914,-7.3

想通过程序导入CAD命令中，请指点一下LISP VBA ARX都可以

pianette

一行一行读文件，再解析文件吧。
不知道有没有更好的方法

xysyr

acedGetAcadTextCmdLine()->PostMessage(WM_CHAR,VK_ESCAPE,0);
打开文件
char str[1024];
while(文件)
{
        acedGetAcadTextCmdLine()->PostMessage(WM_CHAR,VK_ESCAPE,0);        // 取消
        fgets(str, 1024, 文件);
        acDocManagerPtr()->sendStringToExecute(curDoc(), str);                        acedGetAcadTextCmdLine()->PostMessage(WM_CHAR,VK_SPACE,0);        // 空格
}
关闭文件

pianette

真是不错，我怎么不知道ARX还有这个功能～
谢谢

ericeden

最初由 xysyr 发布
[B]acedGetAcadTextCmdLine()->PostMessage(WM_CHAR,VK_ESCAPE,0);
打开文件
char str[1024];
while(文件)
{
        acedGetAcadTextCmdLine()->PostMessage(WM_CHAR,VK_ESCAPE,0);        // 取消
        fgets(str, 1024, 文件);
... [/B]

谢谢，老兄，刚刚查了一下，
CWnd *

acedGetAcadTextCmdLine();

This function is used to get the AutoCAD's Text Command Line window.
这个好像是获得命令行的函数吧

RedCAD

3楼真厉害，代码我要保存学习