CAD的VBA如何创建文本文件？

cqy

CAD的VBA如何创建文本文件？

liyuwen

不妨参考如下代码：
Dim OutFileName As String, Fa As Integer
OutFileName = "C:\XRCAD\用户数据\Demo.txt"
Fa = FreeFile
Open OutFileName For Output As #Fa
Print #Fa, "记录欲保留的数据...："
...
Close #Fa '关闭外部文件

cqy

liyuwen:新年好! 多谢指导,电脑上试了,可以生成文件, 现在的问题是如何打开指定的文本文件;如何实现CAD与文本文件的交流. ------------------------------------------------------------------------- CQY

yj821005

是啊，我也很想知道问题该怎么解决。高手请指导，多谢！

liyuwen

不是太清楚你的意思（上述代码不是已经实现了打开文本文件的功能了吗）。

clement

VBA里面对文本文件的读写同VB(甚至QBASIC)都是完全一样的，用到的语句就是


Open


Print #


Line Input #


Close


具体怎么用看帮助文件，按F1，或者找本介绍VB或者VBA的入门书来看里面肯定有。


而且用文本文件并不是唯一的方法，还可以考虑将数据放到Excel工作表或者Access 数据库中， 都是很基本的方法，并不需要什么高手来解决.

cqy

工程上的坐标点常常是在文本上的如： RQ001， 2857.181， 61806.335， 1.000
RQ002， 2858.181， 61810.335， 1.055
RQ003， 2857.185， 61810.418， 1.055
RQ004， 2857.679， 61811.434， 1.055 （ 点号 X= Y= 高程） 如何读到CAD呢？ ---------------------------------------------------------- CQY

liyuwen

先用“Line Input #”，然后利用循环调用“Instr/Left/Right”等截取合适的内容即可。

clement

liyuwen发表于2005-2-28 10:25:00先用“Line Input #”，然后利用循环调用“Instr/Left/Right”等截取合适的内容即可。

还有简单的方法，如果用的是AutoCAD 2002或以上版本的话（对应VBA 6) Replace函数将其中的空格或制表符都换成vbNullString Split函数将它以逗号为分隔符赋值给一个Variant型的变量，得到一个数组