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

伍佳乐

# \& \& F0 f" O! s. C

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改
% ^; ?/ h; B- ~' j+ {

1. Sub Example_AddBox()
   9 \: u5 e3 j8 a9 e% d, j
2.     ' 此示例在模型空间中创建一个长方体。
   # l- s$ Q0 i6 f& n' C% g
3.         
   . M/ Y6 g2 J% Y1 ?3 m
4.     Dim BoxObj As Acad3DSolid
   * j* K/ v' d$ Q3 P  F
5.     Dim Length As Double, Width As Double, Height As Double
   
6.     Dim Center(0 To 2) As Double
   ) V( |- O3 F5 e& e
7.    
   
8.     ' 定义长方体
   
9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
   
10.     Length = 100#: Width = 50#: Height = 120#
    5 E6 {/ D, ~" e/ u. s! \
11.    
    ( K& ?4 n& N1 `# |+ L) {. g; N. y
12.     ' 在模型空间中创建长方体（3dsolid）对象
    
13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)
    9 \; h5 F/ ^$ r& u
14.    
    2 a0 v8 q( w4 V- v3 g
15.     ' 更改视口的观察方向以更好地查看长方体
    ) i5 f) U3 N$ |. D. g' U$ \) l
16.     Dim NewDirection(0 To 2) As Double
    - C5 ^# I9 a! w+ F& p" I
17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    " U5 z( B# Z( p; \. H' {
19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    / k+ |3 z. n  ~; X3 q  E
20.     ZoomAll
    
21.    
    1 Q) z( T; l* K+ f
22. End Sub

复制代码

# A- Y  t+ V- j4 P4 U" O/ M; U: P
8 h5 i1 {: w: l+ S
' n4 f4 K! W7 r1 z. c* f7 n

伍佳乐

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

% l: l# X7 N# d. n( J% Z# C$ G' K谢谢版主