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

空之镜域 · 发表于 2020-1-23 23:02:26

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

woaishuijia · 发表于 2020-1-30 09:03:11

本帖最后由 woaishuijia 于 2020-1-31 04:24 编辑

结合你另外一个帖子“

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

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

Dim FileNumber As Integer8 L" d& M9 \- x- m+ r3 F
, X* d; ~+ k" k8 }( k& U
Sub A()
" a ?: V9 A* k
FileNumber = FreeFile()
) m1 Y, ^. d4 Z1 n
Open "c:\1.dxf" For Output As #FileNumber
2 A! b7 j) s" V0 Q$ W
Print #FileNumber, 0
+ e* d T- v; K) ?( H0 c2 K
Print #FileNumber, "SECTION"( n" O! t. V5 O, C. e8 r% B
Print #FileNumber, 2! x0 y1 n$ s$ G0 l" ? I0 d" y
Print #FileNumber, "ENTITIES"
/ U# e5 S9 Y( s6 C1 p6 C
Print #FileNumber, 0" _$ f* j' E& }4 s
DxfLine 0, 0, 100, 100, 1, "Continuous"
8 {& y. l6 n% s& R, n `
Print #FileNumber, "ENDSEC"% h; p( Q1 e0 P: Z
Print #FileNumber, 0) S6 X; }' @: E6 ~
Print #FileNumber, "EOF"
( V/ v0 X' `' z+ P& A3 `$ i
Close #FileNumber7 j, |" c+ u, m5 X- p) Z8 d
End Sub7 o# U. `) `0 [" r1 n6 j
6 I" F) P+ ]) w
Sub DxfLine(xs#, ys#, xe#, ye#, cl%, Optional Typ$)$ a/ O1 s- N! o. D. }2 c
Print #FileNumber, "LINE"
T$ M7 Y/ k8 E; N( t# B7 Z
Print #FileNumber, 84 ^- H/ x G; Z, f! N
Print #FileNumber, "0"+ |: i+ y4 M- B: Z
If Typ <> "" Then) w( W( V' O2 V" m- y% K2 z5 k
Print #FileNumber, 6
6 \- y# P4 K/ t( H0 ?& A
Print #FileNumber, Typ1 A9 H6 Z( C- B
End If- y \ }( O' t7 Y3 L N! j& B! `8 r
Print #FileNumber, 62
/ M2 T& a% w# S' y# r- ^ O9 _# U2 K
Print #FileNumber, cl
( ^: S7 V$ P0 l3 ?. O. s
Print #FileNumber, 10
& Q( Z4 u, H# ^4 N: X9 ^) p# u
Print #FileNumber, xs
: u" Q) g& k' }
Print #FileNumber, 20" w% c1 x9 `2 i; W1 i# O% C
Print #FileNumber, ys4 A# m6 U0 Y' Z, H) l: `
Print #FileNumber, 304 p. g& W7 M6 f8 X/ o- w
Print #FileNumber, 0#
% I8 C! ?' e7 s/ B$ {0 x
Print #FileNumber, 114 C6 L9 @ n2 T2 H
Print #FileNumber, xe
) r8 Q. p' T( H/ h
Print #FileNumber, 21
' Q- h s; w' Q/ ~
Print #FileNumber, ye
' i7 g2 p! _/ J' {( R' o8 X
Print #FileNumber, 31
) l* N* @( C9 k6 j
Print #FileNumber, 0#
' A4 [8 o+ \+ S/ H. x! c9 y
Print #FileNumber, 0# n$ |1 u3 e1 T" m) d4 p }1 R( }
End Sub
" w8 J1 J3 G' x

复制代码

代码中第一行是在通用声明区声明一个名为 FileNumber 的整型全局变量，用于保存文件号
第四行用 FreeFile 函数获得可用的文件号，后面的代码都使用这个文件号，包括子程序中的Print #语句，这也是使用全局变量的原因
第十八行，子程序的参数中的前四个都使用了显式类型声明字符“#”，表明这是Double 数据类型；第六个参数使用了Optional 关键字，表明这后面的参数是可选的：在调用子程序时，如果线形是“BYLAYER”，则不必带这个参数。如果不用这个关键字，在调用子程序时，就必须有这个参数，尽管它可能是空字符串。
第二十、二十三、二十六、二十八、三十、三十二、三十四、三十六、三十八和四十行，都去掉了双引号和空格，这里没必要使用字符串类型，用整型就可以
第二十二、二十四行去掉了变量后面的显式类型声明字符“$”，没必要（已经在在第十八行的参数列表中声明了）。同理，第二十七行去掉了双引号及其内部空格及逗号，去掉了变量后面的显式类型声明字符“%”，没必要
第三十三、三十九行把"0.00"改成了0#
去掉了原子程序中的

Label:0 y) P- a9 r- r
Exit Sub

复制代码

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块