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

太感谢了。明白了。
页: [1]
查看完整版本: 怎样创建一个和所打开的cad文件相同名称的文本文件？