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

伍佳乐

woaishuijia

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

1. Sub Example_AddBox()
   
2.     ' 此示例在模型空间中创建一个长方体。
   2 x3 a6 {% n, x, k
3.         
   ! ~! ^- l0 y3 V; j2 h+ i! m
4.     Dim BoxObj As Acad3DSolid
   % T, \' o9 W6 n$ l7 \6 |
5.     Dim Length As Double, Width As Double, Height As Double
   
6.     Dim Center(0 To 2) As Double
   
7.    
   ! a! h& i' K/ R) p# S$ n$ p
8.     ' 定义长方体
   0 x+ b% R. x. q- a
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   2 U1 N. n( M: i; H1 G
10.     Length = 100#: Width = 50#: Height = 120#
    
11.    
    ; h, e3 a+ i- u4 P
12.     ' 在模型空间中创建长方体（3dsolid）对象
    . n0 u' u& ?' m5 D4 q5 Y
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    
14.    
    6 P+ p, g/ I/ ~9 A0 |% T# ~: a# k
15.     ' 更改视口的观察方向以更好地查看长方体
    1 ?9 O- H* ]8 k" I0 x
16.     Dim NewDirection(0 To 2) As Double
    6 a$ a' P/ L( L  r
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    # p& K2 \8 S  m4 F/ k8 E
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    ) U' G: Z* m% R$ A. [8 f' c
20.     ZoomAll
    0 y& R( \# G5 M
21.    
    7 G) m- @, \3 L& \& ^, d
22. End Sub

复制代码

. N7 V! }2 w; `: l( |, k; R

伍佳乐

woaishuijia 发表于 2019-5-8 20:33
8 I) \1 N$ z1 ^% y9 k以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

7 m9 r6 B& q4 s& C3 l2 H谢谢版主