|
发表于 2020-1-30 09:03:11
|
显示全部楼层
本帖最后由 woaishuijia 于 2020-1-31 04:24 编辑 ! v8 x( Y1 _! Z% y" {1 T/ {
# ^/ F/ b& v M3 q; Z" N( M结合你另外一个帖子“”,我好像明白你的意思了。
9 {+ m+ {, x/ X I' R7 R+ Y ]那个帖子里的Print #语句后面的文件号用的是1,这是有问题的。按照VB的语法规则,这个文件号是一个1~511的正整数,应该是由电脑自动生成。你这个直接使用1的情况,除非电脑只打开了一个文档,否则文件号1被其它文档占用,就出错了。只能先手动创建文档,再执行程序,我在那个帖子里的回复就是这样子的(那个回复为了简短,没有讨论编程技巧),为了保证程序顺利运行,要求先创建文档。
+ r- f" e$ F" `( v0 T- R2 G把那个主程序和子程序的代码改一下
% Q: x$ c8 t8 W1 W- U1 f- Dim FileNumber As Integer
/ t' U ?2 D4 G - : K/ l8 j" u+ \: R
- Sub A()
. D- z) ~+ P$ i: R. J - FileNumber = FreeFile()
1 {' P( F$ o b" k+ S9 h3 L - Open "c:\1.dxf" For Output As #FileNumber0 |' }" u2 M: G6 c; V+ C
- Print #FileNumber, 0
5 O5 I3 ~# _$ }0 K+ q1 v' |! ^. r' J: Z - Print #FileNumber, "SECTION"
2 Z+ g9 ^4 P+ i) j5 C& i! p - Print #FileNumber, 2
) C& e1 ^8 W' Y/ _, P/ o) J2 H& Q; v - Print #FileNumber, "ENTITIES"1 Q6 t; ]" j# A( L: z/ V% J9 T
- Print #FileNumber, 0
: ` B& ~6 v3 C# d$ H! q% ^ v - DxfLine 0, 0, 100, 100, 1, "Continuous"2 ~( i, R- d8 R2 B; k
- Print #FileNumber, "ENDSEC"- q0 N" [& ], e2 z. y. s& Y* \
- Print #FileNumber, 0& i2 I$ y1 V7 x0 A$ t
- Print #FileNumber, "EOF"
; e- O- o$ r% X' b) C - Close #FileNumber2 g; \ e+ N: S% i! s, O) X
- End Sub
7 k5 p9 Z2 ^; z
+ p2 O& K2 S+ [1 a- Sub DxfLine(xs#, ys#, xe#, ye#, cl%, Optional Typ$)
4 w& e! q9 H4 M6 a7 p - Print #FileNumber, "LINE"
2 V! L* v5 X9 ]" H+ K - Print #FileNumber, 8) S% k9 I m: a6 S0 G
- Print #FileNumber, "0"( b1 s; P; _9 ^5 k; o- r% F4 w5 v
- If Typ <> "" Then k6 s9 u n7 C' A9 r
- Print #FileNumber, 6; O5 s/ v/ T. F( ^
- Print #FileNumber, Typ
6 r0 }: M# e3 b# T$ }5 \4 [ - End If* a& f) {' `3 ^! J: b6 b8 V
- Print #FileNumber, 62
% J5 W+ F% O+ B! G! q, [ b - Print #FileNumber, cl4 h7 G) S0 W8 n( p
- Print #FileNumber, 109 _+ L; I/ y, T9 q
- Print #FileNumber, xs
- @3 K6 J" f2 e/ |& i G& U - Print #FileNumber, 20
. }7 W3 D" e% f - Print #FileNumber, ys% a1 k* z# h# W( j& }& {
- Print #FileNumber, 30
1 w$ [" y. [8 c" ~7 h3 i7 d - Print #FileNumber, 0#" J/ I& O8 Q' Y& m
- Print #FileNumber, 11
! b7 o* _! _( A$ m1 R* r% d- C - Print #FileNumber, xe
/ s4 Z2 }/ |8 a" ]8 y! S4 A$ ~ - Print #FileNumber, 21
|3 |/ Q) d5 x* V9 \' A% t - Print #FileNumber, ye
6 r: c% a% R+ }9 D - Print #FileNumber, 31
2 D1 g: n9 R, X - Print #FileNumber, 0#2 a# {, P& L0 d& F; O, I# j" ^$ `
- Print #FileNumber, 0
( I9 u" N2 E3 J4 x* t! t - End Sub v* p+ d+ }" { O x! z/ ?
复制代码 代码中第一行是在通用声明区声明一个名为 FileNumber 的整型全局变量,用于保存文件号
- v( J5 L6 t0 |* h1 m. ~& W5 q第四行用 FreeFile 函数获得可用的文件号,后面的代码都使用这个文件号,包括子程序中的Print #语句,这也是使用全局变量的原因
+ x, y8 c/ ~7 ?# j/ r第十八行,子程序的参数中的前四个都使用了显式类型声明字符“#”,表明这是Double 数据类型;第六个参数使用了Optional 关键字,表明这后面的参数是可选的:在调用子程序时,如果线形是“BYLAYER”,则不必带这个参数。如果不用这个关键字,在调用子程序时,就必须有这个参数,尽管它可能是空字符串。
. z1 N t0 |/ n" {第二十、二十三、二十六、二十八、三十、三十二、三十四、三十六、三十八和四十行,都去掉了双引号和空格,这里没必要使用字符串类型,用整型就可以
) x+ y! S: Z* A& j/ j9 L) z第二十二、二十四行去掉了变量后面的显式类型声明字符“$”,没必要(已经在在第十八行的参数列表中声明了)。同理,第二十七行去掉了双引号及其内部空格及逗号,去掉了变量后面的显式类型声明字符“%”,没必要( Y9 r* g* g. I
第三十三、三十九行把"0.00"改成了0#
% [) `. {/ Q" M; `' q5 J3 W- Q去掉了原子程序中的- Label:
/ ]( s; c a1 m* |7 b I - Exit Sub
复制代码 |
评分
-
查看全部评分
|