QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
查看: 4877|回复: 1
收起左侧

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

[复制链接]
发表于 2020-1-23 11:29:18 | 显示全部楼层 |阅读模式
安装
主题分类用于问题归类:

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

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

x
基本上都是这样的,这个应该是画直线的子过程,但是从第3行开始就不太懂写的是设置什么参数,也找不到相关的书籍教程,有没有大神能稍微给我讲解下,谢谢。# _( F' Z8 ]7 b' }

% Y6 [+ B$ S: D+ W0 [6 [Sub DxfLine(xs, ys, xe, ye, cl%, Typ$): }- G; J9 g) r- ]& o
    Print #1, "LINE"2 X1 N1 n$ d& ]: G7 n% }. g& U, u0 T
    Print #1, "  8"1 `& k) [- ]) ]" {3 g
    Print #1, "0"
6 S. l/ [- J/ Z" {    If Typ$ <> "" Then
. C' n! J( k9 u+ d8 o# a4 O, ?3 R       Print #1, "  6"8 `  g1 k' V# E, |+ b, G( c  s
       Print #1, Typ$
+ F( e, ~. Y% `2 V& {4 E$ i    End If, X$ t. P0 k% A
    Print #1, "62"
* @3 N7 g. `2 H    Print #1, "  "; cl%
! N$ S/ i$ x) A$ B( o" e    Print #1, "10"
; v5 a; \% U3 Y$ u% E    Print #1, xs
6 \4 j4 `; u1 k2 |& R3 U0 p' k    Print #1, "20"
' X! N6 z. e! s! x    Print #1, ys
& y1 B& y! O! Z: e& ?# x    Print #1, "30"
* ]3 I' _5 H7 D) y9 r1 ^    Print #1, "0.00"' @2 F0 r% g. L7 J( c
    Print #1, "11"
# o+ n( T) X  u6 Q* t$ {) p6 i$ h    Print #1, xe
2 D+ K; a1 g. z' b    Print #1, "21"
  H" x) n2 \+ D) D' m1 {    Print #1, ye* Q2 F+ |& |: @& _' j1 ?! s
    Print #1, "31". {8 B& @0 s0 e$ g
    Print #1, "0.00"
9 f! L& t1 `% y) H    Print #1, "  0": L" C5 ^" Y0 Q
Label:& S6 |' v+ u* s- r  E' x9 `  ^; [  E
     Exit Sub
. }5 _& d- C) g; g* z3 Y$ p( ~- k. D# S, ~/ ^+ l9 D% z# |, F' C
End Sub
6 ~4 e  u( y) j
发表于 2020-1-30 14:39:53 | 显示全部楼层
本帖最后由 woaishuijia 于 2020-1-30 19:47 编辑 ( F) N# k0 m# \6 P/ d
; `- H+ h* e; v( b
下面逐行分析这段代码7 x' k4 b- A! b" a+ N4 b
  1. Sub DxfLine(xs, ys, xe, ye, cl%, Typ$)
复制代码
声明过程。从这段代码带有参数这点看,这是一段供其它程序(主程序)调用的子程序。结合下面的代码看,这个子程序用于在一个文本文件(DXF)中写入图形中一条直线的DXF组码。共有六个参数,其中前两个分别是直线起点X、Y坐标,第三、四个是直线端点X、Y坐标,第五个是颜色索引,第六个是线形名。
) w. J' [( H" o1 ?/ m! ?下一行
' l7 A8 I/ `8 V6 ^3 E6 Y+ `
  1. Print #1, "LINE"
复制代码
这行是Print # 语句,在打开的文本文档中写入数据。
4 U7 q3 U0 t% {( W( L首先,这个文档必须是已经打开的,所以在调用这个子程序的主程序中一定有打开这个文档的代码。其次,既然我们从下面的代码中已经知道它是在写一个图元的DXF组码,而按照DXF文档规则,一段图元组码一定是以0开头的,在0的下一行才是图元类型“LINE"(二者构成一个组码对),所以我猜想在调用这个子程序的主程序的打开文档语句的后面一定有一行写入”0“的代码。应该是这个样子: V$ L( h; c  L: N- Y% o7 R
  1. Sub A()
    * C! c+ |! O+ n: l6 s
  2. Open "c:\1.dxf" For Output As #1
    " m4 x. _; B8 e2 V4 N# I
  3. Print #1, 0
    6 j3 e5 N$ p. P8 @" Y+ e: R9 f
  4. DxfLine 0, 0, 100, 100, 1, "Continuous"
复制代码
这段”主程序“代码的第一行是声明(名字”A“是随便取的);第二行是打开一个已有的DXF文档用于写入数据;第三行是写入一个”0“;第四行是调用这个子程序(有六个参数,见前面的分析)。
- H# A' o) N% i9 y5 T6 ^6 n”主程序“中的第三行和子程序的Print #1, "LINE"结合起来,就在DXF文档中写入了
: E' z+ Z6 j5 X' l$ v
  1.   0
    $ c" y8 b9 @4 P9 N3 H8 R
  2. LINE
复制代码
这是图元类型(直线)的组码对# v# [" T! A6 n

  {, f$ H/ S7 A  v5 b子程序的下两行:! b& t% Y6 r, \  _& u; q- ^
  1.     Print #1, "  8"/ Q- C3 B" j, n' `$ `0 O
  2.     Print #1, "0"
复制代码
这是在DXF文档中写入9 ~" g. l* b+ Q' L
  1.   8+ v& x; r/ Y1 ?& d# v1 X. K
  2. 0
复制代码
直线所在图层(”0“层)的组码对
% m& U, b( f  i1 ]8 Y4 m
9 y/ M1 x3 Z# J子程序的下面四行# }* y1 {) w- v* I  g- G7 ~! n
  1.     If Typ$ <> "" Then) S: V' c" Z5 X) m5 l
  2.        Print #1, "  6"! D7 c( G9 y2 d! I5 E
  3.        Print #1, Typ$
    " I# u$ f& A4 W3 Q3 w3 `
  4.     End If
复制代码
这是条件判断语句,意思是当主程序传递过来的第六个参数不是空字符串时,执行中间两行代码,否则跳过去不执行。中间两行代码执行的结果是(以第六个参数是
1 Z7 L6 i% k4 y) z"Continuous"为例,参见主程序代码): X: t4 K  C6 y/ b
  1.   6
    / P& t% \9 @- M! N6 x% M  T
  2. Continuous
复制代码
这是图元线形组码对。这对组码在DXF文档中是可选的,所以条件判断语句中当参数为空字符串时不在文档中写入这对组码,此时图元的线形是默认值 BYLAYER。/ \8 V7 Q' B! R1 v
$ ~6 r2 \* E8 b6 ?
子程序的下两行
, }  q; E8 g, p& b( _' T3 Y
  1.     Print #1, "62"
    ; O" G- u1 w8 f( m( v$ L
  2.     Print #1, "  "; cl%
复制代码
根据第五个参数(以1为例,这是索引颜色中的红色)在文档中写入3 q; n/ _! ^) c: ^, V$ a; R
  1. 62
      q5 J" }9 f- M
  2.     1
复制代码
这是图元颜色组码对,可选的。如果省略这对组码,颜色就是默认值 BYLAYER
- m& Z: R+ g8 Q2 q3 h% @' ^- z) M2 m7 z6 H/ X; Q* v) A( A8 A- S- H
子程序的下面十二行% S: [- N0 e! v8 \
  1.     Print #1, "10"
    2 H" W/ I5 I  {2 p  \6 o
  2.     Print #1, xs
    - }! n  [) y' p
  3.     Print #1, "20"3 W% Q3 e' Q! k
  4.     Print #1, ys" p5 J- H5 l5 M* g; m# t" @
  5.     Print #1, "30"
    8 r5 M6 j: S% _1 L5 ^9 `9 a8 h* E
  6.     Print #1, "0.00"7 V& {# i8 R' w* B* z
  7.     Print #1, "11"3 g" P! {5 K. M
  8.     Print #1, xe
    * x3 O) ?9 U9 I! G$ E# J
  9.     Print #1, "21"* _4 {) x. e! `; N" E* @+ }
  10.     Print #1, ye) s+ s& C% }2 f0 U' \; \; u
  11.     Print #1, "31"
    : {2 g: w# w7 s9 w8 O# }* h$ c; u$ i
  12.     Print #1, "0.00"
复制代码
根据前四个参数(以起点X坐标、Y坐标均为0,端点X坐标、Y坐标均为100为例)在文档中写入
. I$ u; N; {4 `4 Y, d
  1. 10
    " x/ y4 \* P6 Q
  2. 09 B  }, k0 B& b9 ]0 ]2 U# V. M
  3. 20
    $ w; E7 `% {5 g, A; Z- ?6 D9 O
  4. 0# m* V/ m2 m  m( m: X7 t
  5. 30
    . P- {: R; U' j* W  t2 \: x4 Y
  6. 0.00
    ! c+ n: S- J' h7 M" p! s
  7. 110 y$ d+ y# `8 F/ l( R
  8. 100
    8 D; }5 e3 e3 Q4 |( i9 k" o
  9. 21
    9 e# w" B+ s. J8 }' o- c2 E
  10. 100
    7 s1 r0 G' [+ H3 p
  11. 31; A/ \/ }& ]- A- W( |& E1 H
  12. 0.00
复制代码
这是直线起点、端点三维坐标的六个组码对
: Y! U& w0 l* Z; F# H$ ?6 Q- g( G$ Y9 y. i
子程序的下一行2 j9 e: z4 I1 Q( N% ?' C
  1. Print #1, "  0"
复制代码
这一行是在文档中写入+ f* U9 r$ T* @7 U# ]# I: ~
  1. 0
复制代码
这是为继续写入后面的组码准备的。
1 f2 Q- \/ K% G$ R+ r1 N后面的组码可能是下一个图元,例如重复调用这个子程序再画一条直线,或者调用其它子程序画另一种图元(前提是代码结构与这个子程序类似,一上来就写入图元类型),或者图元组码结束,按DXF文档规则,在直线三维坐标组码那十二行的后面应该是$ y+ K! T7 P: Q, e: V
  1. 0
    ! ?1 J+ z6 J% C. \2 s, y
  2. ENDSEC
复制代码
相应地,主程序中的代码应该在调用这个直线子程序语句的下一行是% K+ }5 y! p. D- @7 ~' Q
  1. Print #1, "ENDSEC"
    0 F& d1 p( Y1 |: `. N1 n/ p
复制代码
1 q* J0 B( U5 f+ x' A
子程序下面两行9 v7 ]3 E+ o3 p1 u7 x4 u
  1. Label:! I: T7 r9 s. `: ~& H6 |
  2.      Exit Sub
复制代码
完全没有用处。这可能是作者在调试程序时加入的错误陷阱的一部分,发布时没有删除。所幸对代码影响不大# ~; o1 x- V6 a" |4 W1 ?5 I
) n/ t  R- F( F$ k- v8 S0 }" I! L
子程序最后一行
3 y- q& ]$ c$ }
  1. End Sub
复制代码
过程结束。8 P% Z4 G  _6 |; H) h

, n+ }  k+ Z( F  D- @8 v  x把前面有关主程序的内容完善一下+ e# c) p& f5 u( n1 C: m% i
  1. Sub A()
    $ W1 a* ?+ q- w6 R5 A. F9 V/ J4 x8 I
  2.     Open "c:\1.dxf" For Output As #1/ a" F4 b) p. D+ I6 J+ ^4 w* t, i
  3.     Print #1, 0
    , o& \' Q, t4 k
  4.     Print #1, "SECTION"
    5 k' g4 |- D+ {6 J! ]6 ], f: [
  5.     Print #1, 2
    ! F# D+ ~3 n+ ]
  6.     Print #1, "ENTITIES"
    5 W; R  p" R( h% r
  7.     Print #1, 0* ?+ H+ X  o1 t4 d
  8.     DxfLine 0, 0, 100, 100, 1, "Continuous"
    ; T8 H: `- }( C
  9.     Print #1, "ENDSEC"4 |( f; T7 o4 R' _6 }
  10.     Print #1, 0  m# Z. f2 Z2 a8 `2 z
  11.     Print #1, "EOF"' R2 m) B5 G( g+ q4 F" A
  12.     Close #1
    , n+ U8 D& n8 h: |- V) p; H
  13. End Sub
    # \2 ^! i! D1 v" q
复制代码
这段代码比前面的“主程序”代码增加了第三到第六行,这是写入图元组码段开始的两个组码对;& I  P: R) }: S0 m* s' j1 g2 o
第九行是写入图元组码段结束组码对的第二行(第一行在子程序里)。8 D  ^4 h3 m& o( B4 K+ f( l5 ?3 s6 p# Q

  R; Z' D# U7 Q/ l第十、十一行是写入文档结束组码对。
8 B% Z  q% O3 h/ C0 s7 j, @0 ]第十二行是关闭文档。! Y) ]6 e5 v5 a3 c$ L

$ c) D, h, n: D在C盘根目录新建一个文本文档,命名为”1.dxf“。然后打开CAD的VBA编辑器,分别把这段主程序代码和楼主的子程序代码粘贴在”ThisDrawing"模块代码页上,执行这个主程序(宏),就可以创建一个包含一条直线的名为”1.dxf“的最简单的DXF文档5 U4 |, c* C9 h; P) L( U+ z9 ?

2 q( ~9 S! Q9 t3 r* v( l; l1 G

评分

参与人数 1三维币 +10 收起 理由
2005llnn + 10 鼓励积极应答和参与的回帖。

查看全部评分

发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备13008828号-1 )

快速回复 返回顶部 返回列表