|
发表于 2020-1-30 09:03:11
|
显示全部楼层
本帖最后由 woaishuijia 于 2020-1-31 04:24 编辑 2 p; l, Y2 K; z, z4 s' a
; G6 U* l1 E$ P5 q; I1 Z' f结合你另外一个帖子“”,我好像明白你的意思了。
" X; {( Y, }' B5 P# E& n8 _那个帖子里的Print #语句后面的文件号用的是1,这是有问题的。按照VB的语法规则,这个文件号是一个1~511的正整数,应该是由电脑自动生成。你这个直接使用1的情况,除非电脑只打开了一个文档,否则文件号1被其它文档占用,就出错了。只能先手动创建文档,再执行程序,我在那个帖子里的回复就是这样子的(那个回复为了简短,没有讨论编程技巧),为了保证程序顺利运行,要求先创建文档。2 F$ `( g+ O" V) {/ c0 z$ Z
把那个主程序和子程序的代码改一下3 @9 C5 X) Y3 C9 d- E$ _# D0 A* E5 i5 Q
- Dim FileNumber As Integer
4 l k' v2 B- H, P, r4 o
: o2 l" ~" t' @/ ^8 _ w- Sub A()& [& j+ s% Q: v# ^, s
- FileNumber = FreeFile()8 v0 J7 P/ i6 A* w' B6 G7 z
- Open "c:\1.dxf" For Output As #FileNumber% b( J8 ?) g6 {0 D
- Print #FileNumber, 0: i% U u; \+ p, j
- Print #FileNumber, "SECTION"! A* r% f5 s \0 ?) @8 ]7 z, ]; T
- Print #FileNumber, 2
6 H; F7 p, g' O/ x" ~0 [6 N. A - Print #FileNumber, "ENTITIES"1 z# a& |0 Z: \+ C3 W
- Print #FileNumber, 0. G8 `3 }" m( P4 Y5 b$ D
- DxfLine 0, 0, 100, 100, 1, "Continuous"
* Q$ l: F% } j- [4 @9 [ - Print #FileNumber, "ENDSEC"6 [# j9 I1 ~* m
- Print #FileNumber, 0
' c5 k$ ?9 x4 }9 K - Print #FileNumber, "EOF"9 L8 U+ h0 q% ^6 `- E
- Close #FileNumber8 J7 i0 R5 q& ]
- End Sub
% h5 Y0 K: g6 Y1 {$ ~8 y, x$ p
* K& i4 m, f) X, A8 g- Sub DxfLine(xs#, ys#, xe#, ye#, cl%, Optional Typ$)3 w- o- h, l% f9 m9 |6 Z
- Print #FileNumber, "LINE"$ e( _4 W. t7 ?- z) R+ [5 P B' {
- Print #FileNumber, 8- p: R0 s+ I( H% L+ e3 H
- Print #FileNumber, "0"
# @ i0 T, J, b3 b( Q, ? - If Typ <> "" Then; p* h; |: `$ P
- Print #FileNumber, 6" G' ~+ w/ L& I% }6 B! y1 B
- Print #FileNumber, Typ
+ r) Z9 q% f) Q3 i; g6 I - End If, V6 h, E+ }2 ?9 o" ~
- Print #FileNumber, 62' I3 \7 o5 ?* j, L7 j( b! e( Y
- Print #FileNumber, cl P7 N) |; T# [# s& W
- Print #FileNumber, 10' i" e- y4 W; G% B; i2 A0 K
- Print #FileNumber, xs5 V, q" D; [( T4 L! e
- Print #FileNumber, 20
+ D0 k- @: r0 f2 s8 U - Print #FileNumber, ys& g" M' `) b+ I
- Print #FileNumber, 30
q* p) `8 o; j' E" l, P - Print #FileNumber, 0#
5 d K& M0 P# G( f# U - Print #FileNumber, 11
4 d& t$ b" |* E9 z6 x& T$ J - Print #FileNumber, xe
0 U& g- D+ G! a% Z& n - Print #FileNumber, 21
- S" B9 V; n9 m2 B - Print #FileNumber, ye# _7 g& D7 r8 K- ]* j8 d
- Print #FileNumber, 31" F: m, R8 {( v5 d5 I* C; C8 c
- Print #FileNumber, 0#
' I+ _' W* M/ e0 m3 Y - Print #FileNumber, 0
; Y1 C. A7 r5 q5 ?; Z; y - End Sub
3 j- H! x7 x9 N. ?# z; Z
复制代码 代码中第一行是在通用声明区声明一个名为 FileNumber 的整型全局变量,用于保存文件号- z m! \/ y! F! `6 x1 _
第四行用 FreeFile 函数获得可用的文件号,后面的代码都使用这个文件号,包括子程序中的Print #语句,这也是使用全局变量的原因0 L% C' p9 t5 h! Q: a4 J
第十八行,子程序的参数中的前四个都使用了显式类型声明字符“#”,表明这是Double 数据类型;第六个参数使用了Optional 关键字,表明这后面的参数是可选的:在调用子程序时,如果线形是“BYLAYER”,则不必带这个参数。如果不用这个关键字,在调用子程序时,就必须有这个参数,尽管它可能是空字符串。* k( w; f* ?% [, n
第二十、二十三、二十六、二十八、三十、三十二、三十四、三十六、三十八和四十行,都去掉了双引号和空格,这里没必要使用字符串类型,用整型就可以
0 N5 d2 i% V9 {$ x- D第二十二、二十四行去掉了变量后面的显式类型声明字符“$”,没必要(已经在在第十八行的参数列表中声明了)。同理,第二十七行去掉了双引号及其内部空格及逗号,去掉了变量后面的显式类型声明字符“%”,没必要+ s- I' f: T; w S
第三十三、三十九行把"0.00"改成了0#* O) f9 z/ S* W
去掉了原子程序中的- Label:
r# A; K0 y9 ^6 Y - Exit Sub
复制代码 |
评分
-
查看全部评分
|