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

伍佳乐

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改
6 ^! {! D' W3 l: K) w2 M: E& h7 Z

1. Sub Example_AddBox()
   3 N6 A; n; q( E! ]& L+ g
2.     ' 此示例在模型空间中创建一个长方体。
   # a6 f2 ^! n) Z/ c7 k9 j8 ^
3.         
   
4.     Dim BoxObj As Acad3DSolid
   ( F  q& o4 T3 J" W* K0 V
5.     Dim Length As Double, Width As Double, Height As Double
   " u" E8 O' h) s7 E; _; B9 d7 }+ @' z
6.     Dim Center(0 To 2) As Double
   
7.    
   
8.     ' 定义长方体
   
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   & p1 Q; L% o+ u9 P
10.     Length = 100#: Width = 50#: Height = 120#
    
11.    
    
12.     ' 在模型空间中创建长方体（3dsolid）对象
    
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    . ^* R4 {7 c& E% w) ~- o% o
14.    
    
15.     ' 更改视口的观察方向以更好地查看长方体
    ' U% `+ q5 E9 E  C, k4 p3 u
16.     Dim NewDirection(0 To 2) As Double
    % K- R: u9 ~0 R# Y- Q
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    5 Y5 C5 U, g: Q0 C9 R) w2 o( l( L
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
20.     ZoomAll
    
21.    
    
22. End Sub

复制代码

: _, r; _+ B( `0 D+ f% N
, ?8 C' M: [2 b  s

伍佳乐

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

+ _+ |) V0 r; W* a' R9 ?$ z4 `谢谢版主