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

伍佳乐

9 P& k5 T; S6 \8 \. r! z

woaishuijia

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

1. Sub Example_AddBox()
   
2.     ' 此示例在模型空间中创建一个长方体。
   % N' {  Z0 g, N1 |
3.         
   
4.     Dim BoxObj As Acad3DSolid
   6 r, \3 \  m" L" Z
5.     Dim Length As Double, Width As Double, Height As Double
   
6.     Dim Center(0 To 2) As Double
   ) u5 G( G0 I( D; b* a
7.    
   
8.     ' 定义长方体
   9 {8 A  z6 l3 f* G) k. B. ~* V
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   
10.     Length = 100#: Width = 50#: Height = 120#
    1 D0 I5 q. q+ p
11.    
    
12.     ' 在模型空间中创建长方体（3dsolid）对象
    - w, N& _& n. l$ Z$ q
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    
14.    
    / U7 w2 W6 {5 C& L
15.     ' 更改视口的观察方向以更好地查看长方体
    
16.     Dim NewDirection(0 To 2) As Double
    0 \) R) e2 T, n) x
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
      E- s) D- [, h- }0 R) ?* A
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
20.     ZoomAll
    : X1 F  y* ?" x
21.    
    3 A2 C+ j; J7 U& a
22. End Sub

复制代码

8 h3 t4 Y- h' b, R  p
; f9 R: E- A. K) A6 E

伍佳乐

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

! w' B7 U; R1 ?+ x. `1 Q& Q: b7 o谢谢版主