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

armylee

另外还想问的是：


        如果指定的目录有相同的文件，


那么是接着下面添加，还是把它覆盖了？

evaporated

a=ThisDrawing.Path+ThisDrawing.Name


textname=left(trim(a),len(trim(a))-4)+".txt"


open textname as #1 for output


就可以了。如果原本存在。会被覆盖的。

armylee

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

evaporated

dim a as string


a="你要的路径"


open        a as #1 for output

armylee

我想说德是，


固定位置创建与打开的cad文件名相同的文本文件

evaporated

晕。那你


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

太感谢了。明白了。