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

伍佳乐

& V$ I* U& J2 d5 Q

woaishuijia

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

1. Sub Example_AddBox()
   . X+ h( W# ~& h2 [6 b$ I7 u
2.     ' 此示例在模型空间中创建一个长方体。
   
3.         
   8 C. ?8 H& M* x) F
4.     Dim BoxObj As Acad3DSolid
   
5.     Dim Length As Double, Width As Double, Height As Double
   - j  U2 V" p+ L2 e- u% Z
6.     Dim Center(0 To 2) As Double
   
7.    
   " t, w- [  v6 D! c9 ], q
8.     ' 定义长方体
   
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   
10.     Length = 100#: Width = 50#: Height = 120#
    2 y9 t7 G9 z1 r, u) z$ @
11.    
    3 h& B$ P+ Q) r9 I
12.     ' 在模型空间中创建长方体（3dsolid）对象
    & ]# u6 i/ \' _+ n% Y
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    4 j* H9 X* V" B9 F7 P
14.    
    5 L. M; N  @/ g, M
15.     ' 更改视口的观察方向以更好地查看长方体
    : Z, o6 y5 d5 y( V) `0 @  l: ]
16.     Dim NewDirection(0 To 2) As Double
    # p8 t1 p. r% H+ a
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    ! Y: E% s( t7 O) c
20.     ZoomAll
    + ?. n# @; H5 o5 F" y
21.    
    5 H4 @: _/ F' q8 X3 J* w
22. End Sub

复制代码

0 @$ I$ s. H6 t- N2 X* l9 K

) V  Z7 ~  r) Y8 |1 [# @# `

伍佳乐

woaishuijia 发表于 2019-5-8 20:33
! Y1 y- Y0 _* A  m2 z6 ?# v以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

. \) y+ R' h! u- o0 E0 Z) _8 O谢谢版主