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

伍佳乐

0 d& m6 _( Z, W, |. T6 [

woaishuijia

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

1. Sub Example_AddBox()
   ) s8 `% k( m( M9 ~( d: Q
2.     ' 此示例在模型空间中创建一个长方体。
   
3.         
   
4.     Dim BoxObj As Acad3DSolid
   
5.     Dim Length As Double, Width As Double, Height As Double
   % V. k' y9 V' M; i0 s! A
6.     Dim Center(0 To 2) As Double
   6 n2 a9 p- [% }* H& s! s
7.    
   
8.     ' 定义长方体
   4 e& ~% T+ `8 }0 x* T
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   
10.     Length = 100#: Width = 50#: Height = 120#
    7 F: X0 J. K5 m* I
11.    
    ! N) f. [: q: s# E( e
12.     ' 在模型空间中创建长方体（3dsolid）对象
    
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    
14.    
    
15.     ' 更改视口的观察方向以更好地查看长方体
    
16.     Dim NewDirection(0 To 2) As Double
    ; }0 A: n6 N% Z* ^6 T/ C+ k
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    3 }/ q% `# M" @
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    0 `  w3 y0 j# x7 G
20.     ZoomAll
    
21.    
    ! I* y* v  ~" S$ L! Z
22. End Sub

复制代码

伍佳乐

woaishuijia 发表于 2019-5-8 20:33
' D$ M# M  M* d& {! f6 i: q以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

7 h3 Y8 c( D. K7 n% w谢谢版主