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

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

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

liyuwen 发表于 2005-2-28 10:25:00

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

clement 发表于 2005-2-28 11:13:00


还有简单的方法，如果用的是AutoCAD 2002或以上版本的话（对应VBA 6)
Replace函数将其中的空格或制表符都换成vbNullString
Split函数将它以逗号为分隔符赋值给一个Variant型的变量，得到一个数组
页: [1]
查看完整版本: CAD的VBA如何创建文本文件？