|
发表于 2020-1-30 09:03:11
|
显示全部楼层
本帖最后由 woaishuijia 于 2020-1-31 04:24 编辑
- t/ t" k2 e' I2 @$ @# k/ N" y, [ Y; o, `
结合你另外一个帖子“”,我好像明白你的意思了。
# k9 M- ^0 A, y: h0 J6 b4 g那个帖子里的Print #语句后面的文件号用的是1,这是有问题的。按照VB的语法规则,这个文件号是一个1~511的正整数,应该是由电脑自动生成。你这个直接使用1的情况,除非电脑只打开了一个文档,否则文件号1被其它文档占用,就出错了。只能先手动创建文档,再执行程序,我在那个帖子里的回复就是这样子的(那个回复为了简短,没有讨论编程技巧),为了保证程序顺利运行,要求先创建文档。
1 D! |7 L5 S3 d/ C9 ~4 h' z把那个主程序和子程序的代码改一下8 b5 Q) x* `3 }! h
- Dim FileNumber As Integer
. I9 w. v8 ?# [ - % G; a% T9 J! C# F! V
- Sub A()
" r6 a f1 }) i6 O/ \ - FileNumber = FreeFile()
2 n, Z |! d2 ^; t z - Open "c:\1.dxf" For Output As #FileNumber
p' q& Q0 A" d& Q9 h: d - Print #FileNumber, 0) @) L0 Z6 j4 \' W5 d' V& G* B6 E$ ]1 i
- Print #FileNumber, "SECTION"7 I# I/ k) `+ k8 \% n# W
- Print #FileNumber, 2
. e# B4 o6 v! v/ z$ P5 P - Print #FileNumber, "ENTITIES": x: ^9 N" q* w3 z% F
- Print #FileNumber, 0
6 t2 d- [1 t' N% c - DxfLine 0, 0, 100, 100, 1, "Continuous") `7 G. L9 y* k; @! k
- Print #FileNumber, "ENDSEC"' _! d6 c! |0 R5 S5 ?
- Print #FileNumber, 0
& Y/ V [* a4 w7 q7 |5 w. D8 b# M5 e T) x - Print #FileNumber, "EOF"
, e# x( t$ F8 {. ?. ] - Close #FileNumber
4 B4 E9 G+ O( ?4 ]9 a" }+ X - End Sub: w* F7 `5 s& l
- 9 O& c7 B- O' [0 X7 E
- Sub DxfLine(xs#, ys#, xe#, ye#, cl%, Optional Typ$)% f, a( Z' e% w% |" m1 O1 g
- Print #FileNumber, "LINE"# p* c" {3 b9 i% _9 n, L
- Print #FileNumber, 8
- C: j! m' \/ f: m' ]& \& v0 s1 P - Print #FileNumber, "0"' r! n7 c. e( T" q
- If Typ <> "" Then
' ~8 }: `9 A; Q, _8 p - Print #FileNumber, 6
4 R9 A' ^4 a" V6 } - Print #FileNumber, Typ
' l! M6 q" i* }2 g, o - End If5 v4 d& ?' r1 L# J
- Print #FileNumber, 62
& p" C4 v* e& W& X' N - Print #FileNumber, cl3 n+ i# p/ s( V8 M, w
- Print #FileNumber, 10
& n" L, ~ |$ t% W - Print #FileNumber, xs( K9 w H& h# ?8 B8 N3 q8 f/ N
- Print #FileNumber, 20
3 a# l1 |, p: S; \' H - Print #FileNumber, ys
! g7 E5 f2 b; g6 a - Print #FileNumber, 30% G& x+ w* x. [" s- p$ i
- Print #FileNumber, 0#( y" d4 Y9 W3 K/ e9 T
- Print #FileNumber, 11
$ z: [5 W8 N0 B( ?' a( f7 q - Print #FileNumber, xe
, I9 U! `, [- } - Print #FileNumber, 21
4 ?) V3 r/ h7 u6 \( I/ L - Print #FileNumber, ye
. O% t8 Z$ ?3 h1 {. w! S8 A - Print #FileNumber, 319 m3 @3 k! b1 ?0 f
- Print #FileNumber, 0#4 J3 X H. \. R$ w3 b2 s
- Print #FileNumber, 0
7 b# O- I$ a4 h$ a2 {/ _ - End Sub
6 x( n& }6 C* }9 f
复制代码 代码中第一行是在通用声明区声明一个名为 FileNumber 的整型全局变量,用于保存文件号
7 X6 Q9 E! M3 I6 d1 L+ n: ^第四行用 FreeFile 函数获得可用的文件号,后面的代码都使用这个文件号,包括子程序中的Print #语句,这也是使用全局变量的原因3 U6 }& C# d' t' \
第十八行,子程序的参数中的前四个都使用了显式类型声明字符“#”,表明这是Double 数据类型;第六个参数使用了Optional 关键字,表明这后面的参数是可选的:在调用子程序时,如果线形是“BYLAYER”,则不必带这个参数。如果不用这个关键字,在调用子程序时,就必须有这个参数,尽管它可能是空字符串。
; I$ H0 S1 ^3 z6 [第二十、二十三、二十六、二十八、三十、三十二、三十四、三十六、三十八和四十行,都去掉了双引号和空格,这里没必要使用字符串类型,用整型就可以8 A2 [0 p5 A0 @ i8 `
第二十二、二十四行去掉了变量后面的显式类型声明字符“$”,没必要(已经在在第十八行的参数列表中声明了)。同理,第二十七行去掉了双引号及其内部空格及逗号,去掉了变量后面的显式类型声明字符“%”,没必要+ p0 Z- _( D3 v: c
第三十三、三十九行把"0.00"改成了0#. m4 X" w g3 N/ `* n
去掉了原子程序中的- Label:
9 [: n; _7 z6 k* A - Exit Sub
复制代码 |
评分
-
查看全部评分
|