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

伍佳乐

& Y4 B( o" a7 B- \3 Z

woaishuijia

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

1. Sub Example_AddBox()
   5 L( Z3 H  o: W6 y$ F2 Y' i6 K
2.     ' 此示例在模型空间中创建一个长方体。
   
3.         
   / T, x+ h9 `% L0 N( R) ]
4.     Dim BoxObj As Acad3DSolid
   7 F8 d9 ?" i% N- G8 e  l$ k6 ~' _
5.     Dim Length As Double, Width As Double, Height As Double
   
6.     Dim Center(0 To 2) As Double
   ( @: v$ h% m8 L
7.    
   
8.     ' 定义长方体
   ! e/ X1 n9 A# E2 A9 a& y( [7 m
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   # I: G% Y% w3 w; h/ k6 N, N
10.     Length = 100#: Width = 50#: Height = 120#
    ; c4 r. x9 G7 V% p+ z& |
11.    
    % ]* F3 c: p3 Z8 m: f- Y
12.     ' 在模型空间中创建长方体（3dsolid）对象
    
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    0 ?7 l/ g* e' w% h: \$ J3 k
14.    
    
15.     ' 更改视口的观察方向以更好地查看长方体
    1 ^9 V8 X/ }: e8 c9 l
16.     Dim NewDirection(0 To 2) As Double
    
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    - m- ^) y8 n" d. F7 u! N2 Y
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    ! i. T4 D& U7 O0 \/ H6 u; d
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    % r- K: D3 \0 d- W+ r1 \+ P
20.     ZoomAll
    
21.    
    $ q  ]& g3 A* t* W& p6 Z' D
22. End Sub

复制代码

伍佳乐

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

谢谢版主