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

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

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

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

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


<BR>

cqy 发表于 2005-2-19 15:34:00

<A name=9461><FONT color=#000066><B>liyuwen</B></FONT></A>:新年好!


多谢指导,电脑上试了,可以生成文件,


现在的问题是如何打开指定的文本文件;如何实现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<BR>                               RQ002，       2858.181， 61810.335，                               1.055<BR>                               RQ003，       2857.185， 61810.418，                               1.055<BR>                               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

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


<BR>还有简单的方法，如果用的是AutoCAD 2002或以上版本的话（对应VBA 6)


Replace函数将其中的空格或制表符都换成vbNullString


Split函数将它以逗号为分隔符赋值给一个Variant型的变量，得到一个数组
页: [1]
查看完整版本: CAD的VBA如何创建文本文件？