怎么在CAD中用VBA编一个长100宽50高120的长方体

伍佳乐

8 T% b+ \) `+ A, l" d" j

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改

1. Sub Example_AddBox()
   3 v; G: R$ s& n# B$ m( @
2.     ' 此示例在模型空间中创建一个长方体。
   ( \9 C0 o* z! h+ h( W
3.         
   8 ^  d6 L4 r  v2 t) `
4.     Dim BoxObj As Acad3DSolid
   
5.     Dim Length As Double, Width As Double, Height As Double
     h2 d. E- W# Q, s0 U
6.     Dim Center(0 To 2) As Double
   
7.    
   # {  h' {* |+ ~/ ~  @5 P$ ~
8.     ' 定义长方体
   $ h) Z6 k1 L3 a- ~- Q
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   5 _! a9 f* Z# f; x2 c
10.     Length = 100#: Width = 50#: Height = 120#
    * m$ y7 v( @" N0 _4 l0 P
11.    
    ; A- q; b( W; L2 ]3 c
12.     ' 在模型空间中创建长方体（3dsolid）对象
    . |  @& W: I4 N3 Q& O6 X
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    
14.    
    ! ?+ S+ {- P' G7 O# q4 a1 Q" M
15.     ' 更改视口的观察方向以更好地查看长方体
    8 T1 V. |9 h" i# Y; @" o* u2 S
16.     Dim NewDirection(0 To 2) As Double
    
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    ) R" _' A5 ?1 U  o2 D3 j. R4 \
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    . L( H0 L* @/ d3 t: G5 I
20.     ZoomAll
    / Q9 ~( Y) H1 G4 K, Y- F0 B7 `
21.    
    
22. End Sub

复制代码

, H6 I7 Y$ f0 z& r% c) D
3 C4 y; \# k2 _5 |/ [" h, a4 e

伍佳乐

woaishuijia 发表于 2019-5-8 20:33
, A. T7 l4 l" Z. H6 @- y以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

谢谢版主