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

伍佳乐

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改
0 y2 P4 R& C4 @, d% P$ `

1. Sub Example_AddBox()
   8 j( r9 o1 a3 z8 }3 T4 H
2.     ' 此示例在模型空间中创建一个长方体。
   
3.         
   
4.     Dim BoxObj As Acad3DSolid
   
5.     Dim Length As Double, Width As Double, Height As Double
   & U4 V) x* ]# F4 d2 p1 l
6.     Dim Center(0 To 2) As Double
   
7.    
   
8.     ' 定义长方体
   9 v9 A# \  N- G+ ]
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   
10.     Length = 100#: Width = 50#: Height = 120#
    
11.    
    
12.     ' 在模型空间中创建长方体（3dsolid）对象
    
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    ( H" }( N; z1 ^) [; T
14.    
    
15.     ' 更改视口的观察方向以更好地查看长方体
    ( ^- \- q' Y2 }) z
16.     Dim NewDirection(0 To 2) As Double
    
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    5 `8 \. T- |  t) b7 ~9 H
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
20.     ZoomAll
    % g; Y1 d- T, C2 H0 m
21.    
    % k$ w# O' Z8 T' {; C% t* V% |2 e+ ~
22. End Sub

复制代码

# s+ A4 K6 u: O; h8 W
* V6 _+ ~8 f3 I+ j) M

伍佳乐

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

谢谢版主