请教件事，Open "新建文本文档" For Output As #1成果输出位置怎么固定？

空之镜域

同一台电脑运行，别人写的程序也没有专门写地址语句、文件保存类型，但是别人的宏能直接生成dxf文件。我写的程序结果保存在我的文档里，而且生成的是不带后缀的文件，手动加后缀或者写成Open "新建文本文档.dxf" For Output As #1。
1 U9 Z# l0 J9 J2 B" y9 yPS：生成的文件是没有问题的。结果老是存在我的文档里这个还没解决。

woaishuijia

3 H. i  c' L* a. j  O9 `' `" C1 V
结合你另外一个帖子“

拿到一个大神用Excel编写VBA程序生成CAD的程序，但是里面的语句不太懂

”，我好像明白你的意思了。
那个帖子里的Print #语句后面的文件号用的是1，这是有问题的。按照VB的语法规则，这个文件号是一个1~511的正整数，应该是由电脑自动生成。你这个直接使用1的情况，除非电脑只打开了一个文档，否则文件号1被其它文档占用，就出错了。只能先手动创建文档，再执行程序，我在那个帖子里的回复就是这样子的（那个回复为了简短，没有讨论编程技巧），为了保证程序顺利运行，要求先创建文档。
/ M1 j; Z  Y9 g) F! ]$ U$ a把那个主程序和子程序的代码改一下
& J1 s% a( h/ y' b0 n4 ?9 j1 }

1. Dim FileNumber As Integer
   ' @$ r3 m( V& [% j
2. 
   1 j- m. |* N/ j# h) v
3. Sub A()
   
4.     FileNumber = FreeFile()
   8 T4 t7 V7 C  W
5.     Open "c:\1.dxf" For Output As #FileNumber
   * J: e5 e- `: g  w
6.     Print #FileNumber, 0
   ) E9 ~  l& o* o6 J1 n
7.     Print #FileNumber, "SECTION"
   
8.     Print #FileNumber, 2
   
9.     Print #FileNumber, "ENTITIES"
   * T9 ]( g) k1 U8 q( J- {8 z
10.     Print #FileNumber, 0
    6 _( n& p( u8 b/ k0 j+ Q( U
11.     DxfLine 0, 0, 100, 100, 1, "Continuous"
    # X8 u% X8 p( d; z
12.     Print #FileNumber, "ENDSEC"
      o" b8 G; P  a4 ]8 V
13.     Print #FileNumber, 0
    : [, ?) ?0 X5 ?% F7 S- n% k
14.     Print #FileNumber, "EOF"
    ' O( a" b0 ]+ I: j
15.     Close #FileNumber
    5 n- M, _9 q/ d. x- Y; y: g
16. End Sub
    
17. 
    0 w) t' P3 P- J; K
18. Sub DxfLine(xs#, ys#, xe#, ye#, cl%, Optional Typ$)
    4 m0 ?- A0 Z* c
19.     Print #FileNumber, "LINE"
    
20.     Print #FileNumber, 8
    / r/ ~7 [& ^5 K- Y* o; T3 s
21.     Print #FileNumber, "0"
    * Z, v& e4 K$ ]8 \
22.     If Typ <> "" Then
    2 z- \' `! K( ?" z5 [4 r' r
23.        Print #FileNumber, 6
    
24.        Print #FileNumber, Typ
      ~: p' \8 p. |
25.     End If
    1 U0 `6 l3 j& W- u% X% ^
26.     Print #FileNumber, 62
    0 [" k7 T1 u6 b3 E. B. L
27.     Print #FileNumber, cl
    $ _3 X: ?6 _5 R1 S  K' o2 X# K7 i
28.     Print #FileNumber, 10
    
29.     Print #FileNumber, xs
    2 o0 H) `$ }% ]
30.     Print #FileNumber, 20
    ; v; i& w4 |% i- j8 S( H
31.     Print #FileNumber, ys
    
32.     Print #FileNumber, 30
    
33.     Print #FileNumber, 0#
    ' r& C& q0 z" [0 T3 {  U9 U
34.     Print #FileNumber, 11
    
35.     Print #FileNumber, xe
    8 f  O( e3 Z. R1 V$ B7 B
36.     Print #FileNumber, 21
    
37.     Print #FileNumber, ye
    
38.     Print #FileNumber, 31
    , e0 J0 b8 ~) I6 l% k7 k) o2 G6 f
39.     Print #FileNumber, 0#
    
40.     Print #FileNumber, 0
    
41. End Sub
    # O* P) `1 t& A0 [

复制代码

代码中第一行是在通用声明区声明一个名为 FileNumber 的整型全局变量，用于保存文件号
; [0 l5 q# X9 c) F; b第四行用 FreeFile 函数获得可用的文件号，后面的代码都使用这个文件号，包括子程序中的Print #语句，这也是使用全局变量的原因
第十八行，子程序的参数中的前四个都使用了显式类型声明字符“#”，表明这是Double 数据类型；第六个参数使用了Optional 关键字，表明这后面的参数是可选的：在调用子程序时，如果线形是“BYLAYER”，则不必带这个参数。如果不用这个关键字，在调用子程序时，就必须有这个参数，尽管它可能是空字符串。
" t# g- U6 `4 ?" V: ]9 W第二十、二十三、二十六、二十八、三十、三十二、三十四、三十六、三十八和四十行，都去掉了双引号和空格，这里没必要使用字符串类型，用整型就可以
$ I4 |  S4 o+ {1 i6 O# f第二十二、二十四行去掉了变量后面的显式类型声明字符“$”，没必要（已经在在第十八行的参数列表中声明了）。同理，第二十七行去掉了双引号及其内部空格及逗号，去掉了变量后面的显式类型声明字符“%”，没必要
第三十三、三十九行把"0.00"改成了0#
) S  c) N9 s" O" Z( \( q, z! z去掉了原子程序中的

1. Label:
   / }/ _9 x/ q2 L+ E* t
2.      Exit Sub

复制代码