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

伍佳乐 · 发表于 2019-5-8 12:48:40

您需要登录才可以下载或查看，没有帐号？注册

x

woaishuijia · 发表于 2019-5-8 20:33:40

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

Sub Example_AddBox()* m5 A# D% q# Q9 w$ s: T
' 此示例在模型空间中创建一个长方体。+ I8 j+ ?2 u1 z2 y/ q% P% g% x
) K3 b9 t; }: A+ Q# t0 J7 V
Dim BoxObj As Acad3DSolid
c; p1 _! m0 k% c2 Y
Dim Length As Double, Width As Double, Height As Double
$ X) }3 X2 K7 O7 J
Dim Center(0 To 2) As Double
S+ ^& y: [( X( |( o
' g* S: u% M' C% E q
' 定义长方体7 B* Z5 S* X2 \. p5 `+ m+ k
Center(0) = 5#: Center(1) = 5#: Center(2) = 0
& I8 V" M2 ?' X. p5 i
Length = 100#: Width = 50#: Height = 120#
6 A: L6 P# {9 k- u) {5 L, o, r! ^
* H$ f9 T1 B7 o+ [0 L9 t/ r, s- A, y0 `
' 在模型空间中创建长方体（3dsolid）对象) l2 D# }, v5 |2 q
Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)' x! j1 [' }2 ^* G$ Q0 [) {
6 G, ^7 y! N6 _2 t
' 更改视口的观察方向以更好地查看长方体% ^# P5 `6 u. H: ]
Dim NewDirection(0 To 2) As Double8 ]8 _4 d4 b* r+ R# k3 Z
NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1* n* v% a; a$ s. G5 i+ \
ThisDrawing.ActiveViewport.Direction = NewDirection
, c* D% x; U8 J' ^
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
+ e4 F0 t: U' R( l, u$ ]( W
ZoomAll, q+ Q; T0 T# T8 N3 { ?
. B5 I$ v/ X, }) Q1 w, C1 s
End Sub

复制代码

伍佳乐 · 发表于 2019-5-9 11:45:40

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

谢谢版主

		自动登录	找回密码
密码			注册

通知