社区 › VB › 怎样创建一个和所打开的cad文件相同名称的文本文件？

armylee 发表于 2005-5-16 00:44:00

怎样创建一个和所打开的cad文件相同名称的文本文件？

另外还想问的是：
      如果指定的目录有相同的文件，
那么是接着下面添加，还是把它覆盖了？

evaporated 发表于 2005-5-16 08:52:00

a=ThisDrawing.Path+ThisDrawing.Name
textname=left(trim(a),len(trim(a))-4)+".txt"
open textname as #1 for output
就可以了。如果原本存在。会被覆盖的。

armylee 发表于 2005-5-16 12:12:00

如果我想在固定位置创建文本呢？

evaporated 发表于 2005-5-16 15:27:00

dim a as string
a="你要的路径"
open      a as #1 for output

armylee 发表于 2005-5-16 16:09:00

我想说德是，
固定位置创建与打开的cad文件名相同的文本文件

evaporated 发表于 2005-5-16 16:14:00

晕。那你
dim a as string
a="你要的路径"
a=a+thisdrawing.name
a=left(trim(a),len(trim(a))-4)+".txt"
open      a as #1 for output

armylee 发表于 2005-5-16 16:25:00

太感谢了。明白了。

查看完整版本: 怎样创建一个和所打开的cad文件相同名称的文本文件？