|
|
发表于 2019-5-8 20:33:40
|
显示全部楼层
来自: 中国北京
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide(ActiveX:参考指南)>Methods(方法)>AddBox Method (ActiveX)(AddBox方法(ActiveX)),其中长方体的长、宽、高参数有修改5 d- `9 y9 ], j, N3 D( _
- Sub Example_AddBox()( n% Z/ J2 B$ s, ]$ k2 ]
- ' 此示例在模型空间中创建一个长方体。
% N' { Z0 g, N1 | - ! x: z( u2 z' T
- Dim BoxObj As Acad3DSolid
6 r, \3 \ m" L" Z - Dim Length As Double, Width As Double, Height As Double$ k' C* i' _$ [! K, q2 U9 T; U) e
- Dim Center(0 To 2) As Double
) u5 G( G0 I( D; b* a - ( j4 U& W2 c. R5 y- x- J
- ' 定义长方体
9 {8 A z6 l3 f* G) k. B. ~* V - Center(0) = 5#: Center(1) = 5#: Center(2) = 04 x/ A- s5 }8 F8 U7 v
- Length = 100#: Width = 50#: Height = 120#
1 D0 I5 q. q+ p - ) |: A1 d: o: W. U# X G
- ' 在模型空间中创建长方体(3dsolid)对象
- w, N& _& n. l$ Z$ q - Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height): r0 L B, i: V+ u
-
/ U7 w2 W6 {5 C& L - ' 更改视口的观察方向以更好地查看长方体' d3 H/ _5 S1 @9 Z* y
- Dim NewDirection(0 To 2) As Double
0 \) R) e2 T, n) x - NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 12 B! s+ [& P2 b+ p9 d! j1 `
- ThisDrawing.ActiveViewport.Direction = NewDirection
E- s) D- [, h- }0 R) ?* A - ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport. I- z: u3 [+ I( G/ i
- ZoomAll
: X1 F y* ?" x -
3 A2 C+ j; J7 U& a - End Sub
复制代码 & @5 z4 j* l! j6 M9 y+ B
8 h3 t4 Y- h' b, R p
; f9 R: E- A. K) A6 E |
评分
-
查看全部评分
|