|
发表于 2019-5-8 20:33:40
|
显示全部楼层
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide(ActiveX:参考指南)>Methods(方法)>AddBox Method (ActiveX)(AddBox方法(ActiveX)),其中长方体的长、宽、高参数有修改
5 I0 P* P& x( O) U- Sub Example_AddBox()1 E5 \# `3 @2 }8 \
- ' 此示例在模型空间中创建一个长方体。
' `, v$ @: v- Y" i, ]. A- s! n - S+ Q& J* E8 R0 d; _
- Dim BoxObj As Acad3DSolid
4 o8 ^+ c ^7 ~2 O& H+ ^" W - Dim Length As Double, Width As Double, Height As Double
' z( Z! Q. K+ C9 y - Dim Center(0 To 2) As Double) w/ T5 X' g2 A; E" `% n
-
2 C8 F) A `+ X2 s; Q6 V% F% | O - ' 定义长方体9 \: z) [' n: d7 Z# Z3 a5 O
- Center(0) = 5#: Center(1) = 5#: Center(2) = 0
$ b/ Q4 m& w! b/ y0 g0 m - Length = 100#: Width = 50#: Height = 120#3 c) e5 ]3 {! T6 t4 ]. q9 u7 E
- 9 l5 X8 d. e* d7 O; z4 T" y
- ' 在模型空间中创建长方体(3dsolid)对象
9 h- q0 t, L! M# r, }$ M - Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)8 ]" r ]/ V5 ]! M) y
- & e" e; z2 c7 k' u
- ' 更改视口的观察方向以更好地查看长方体$ h% S% M. d% h
- Dim NewDirection(0 To 2) As Double8 \; ?1 B: ^$ |8 G: e/ V
- NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
! L5 W) g* P6 o# m8 R# | - ThisDrawing.ActiveViewport.Direction = NewDirection
/ w) M6 ~- v; n( q& ` - ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
" R% U+ x' q' u6 G% ~$ h - ZoomAll
: Q, q! q/ e) ?& o# \ -
$ [, R+ ^0 c7 E8 |7 _/ C - End Sub
复制代码 . M$ b6 T2 [" e- }
& r1 m8 f$ x, |6 Z" u
. W; T( c6 p3 |. {4 J
|
评分
-
查看全部评分
|