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

cqy · 发表于 2005-2-5 13:23:00

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

liyuwen · 发表于 2005-2-7 13:12:00

不妨参考如下代码：
   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 · 发表于 2005-2-19 15:34:00

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

yj821005 · 发表于 2005-2-24 09:08:00

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

liyuwen · 发表于 2005-2-24 09:33:00

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

clement · 发表于 2005-2-24 10:42:00

VBA里面对文本文件的读写同VB(甚至QBASIC)都是完全一样的，用到的语句就是
Open
Print #
Line Input #
Close
具体怎么用看帮助文件，按F1，或者找本介绍VB或者VBA的入门书来看里面肯定有。
而且用文本文件并不是唯一的方法，还可以考虑将数据放到Excel工作表或者Access 数据库中，都是很基本的方法，并不需要什么高手来解决.

cqy · 发表于 2005-2-25 13:45:00

工程上的坐标点常常是在文本上的如：
   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