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

伍佳乐

woaishuijia

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

1. Sub Example_AddBox()
   $ y/ c1 F* _# M  f7 t+ g
2.     ' 此示例在模型空间中创建一个长方体。
   7 X" H5 C! I8 o" I* E6 ?! a
3.         
   2 L$ x, j2 q2 ]" `: B5 R9 j
4.     Dim BoxObj As Acad3DSolid
   + `: n; j3 k# N; @, O$ g
5.     Dim Length As Double, Width As Double, Height As Double
   1 q9 y0 X0 l6 A4 N) }* M/ ?! @: n
6.     Dim Center(0 To 2) As Double
   
7.    
   
8.     ' 定义长方体
   3 X( S+ b) q, D8 U4 M+ a6 ^7 N$ a
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   - B, N5 H+ t, ^8 x1 U3 [7 c5 I
10.     Length = 100#: Width = 50#: Height = 120#
    , \9 J6 H  w+ j9 s; N* ^& X
11.    
    , G. i: |, p5 N5 v
12.     ' 在模型空间中创建长方体（3dsolid）对象
    
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    
14.    
    : C2 ?. D1 C8 F- w6 R6 D; }& B, X
15.     ' 更改视口的观察方向以更好地查看长方体
    $ M/ o. H& x. X* K
16.     Dim NewDirection(0 To 2) As Double
    
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    $ Y5 A+ C! P9 P- w
20.     ZoomAll
    . w, t& {' I4 v- H  E
21.    
    " n% m( z/ ~4 I1 v" H
22. End Sub

复制代码

+ b  Z* ?. c5 i. a5 T+ S

# v3 J4 {/ i( G" F/ t+ d/ Y, T- B

伍佳乐

woaishuijia 发表于 2019-5-8 20:33
; A) l& i$ W: d' \9 e以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

谢谢版主