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

伍佳乐

woaishuijia

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

1. Sub Example_AddBox()
     `, ]6 G0 c4 g
2.     ' 此示例在模型空间中创建一个长方体。
   
3.         
   
4.     Dim BoxObj As Acad3DSolid
   , P' `8 r+ h$ d3 \# z/ ^( @# N1 U
5.     Dim Length As Double, Width As Double, Height As Double
   3 I2 E' \7 l- o( s' a, @# F9 W
6.     Dim Center(0 To 2) As Double
   0 w: S' E/ e9 r2 }
7.    
   - ^3 W9 t- r! U+ z: d
8.     ' 定义长方体
   
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   
10.     Length = 100#: Width = 50#: Height = 120#
    
11.    
    
12.     ' 在模型空间中创建长方体（3dsolid）对象
    ) e6 j# g/ C# u1 d
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    
14.    
    + X8 d2 {6 Z9 i3 J+ k3 p* w
15.     ' 更改视口的观察方向以更好地查看长方体
    
16.     Dim NewDirection(0 To 2) As Double
    ! Z' S8 }5 H2 N! A+ w
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    3 n( L. Q7 o( X  ?. }  R, j/ t
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    % i- v- k; F0 Z0 s
20.     ZoomAll
    0 @4 k& p6 x* M% V
21.    
    ) O8 T$ m3 p" F4 b2 l+ l% S% V' ]
22. End Sub

复制代码

) w1 F5 [+ s) ?- B% J

伍佳乐

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

: Y6 K3 `6 `- s. T1 ?# T) l谢谢版主