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

伍佳乐

. y" Z' @0 n, Y1 T& h& b

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改
0 \2 c/ C4 Z9 O; H$ j4 l# t7 |. H0 E

1. Sub Example_AddBox()
   7 R9 K1 `+ w# _, ?: \
2.     ' 此示例在模型空间中创建一个长方体。
   
3.         
   
4.     Dim BoxObj As Acad3DSolid
   
5.     Dim Length As Double, Width As Double, Height As Double
   
6.     Dim Center(0 To 2) As Double
   # g) x' v( u+ V
7.    
   , N: T; v) v3 }
8.     ' 定义长方体
   1 ~4 T; h5 }7 ]9 M+ [! q
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   0 y& t" |8 S$ r4 W( d: a; e
10.     Length = 100#: Width = 50#: Height = 120#
    
11.    
    
12.     ' 在模型空间中创建长方体（3dsolid）对象
    " C' @5 g1 a. z: t7 }: A8 |) D  r
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    , M. h3 @3 k. P4 L1 k
14.    
    
15.     ' 更改视口的观察方向以更好地查看长方体
    
16.     Dim NewDirection(0 To 2) As Double
    9 ?! \* `2 a  {0 H" \$ p1 y) U6 g6 v
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    - z5 |+ j, E7 _( |5 D
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    4 l1 }" g/ q! V; ~
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
20.     ZoomAll
    
21.    
    5 s' j8 N; g; V2 _; ]0 G, h& w
22. End Sub

复制代码

8 L1 D* h0 r# D: A3 |* c( }) L

伍佳乐

woaishuijia 发表于 2019-5-8 20:33
; t, N2 ^  f9 o( |! P) l' l以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

谢谢版主