|
|
发表于 2019-5-6 19:37:41
|
显示全部楼层
来自： 中国北京
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））, L" Q+ Q5 ^8 Z3 O
- Sub Example_AddCylinder()
$ m: B! ~& {! D! L - ' 此示例在模型空间中创建一个圆柱体。
% N; ~- Q* b% `4 O6 M& u5 O. | ?6 p -
2 y, d5 g; m4 {. c" p3 W. r7 @" | - Dim CylinderObj As Acad3DSolid
0 k2 e4 t4 b3 `- w - Dim Radius As Double5 b# }6 o3 s0 k5 g3 X
- Dim Center(0 To 2) As Double
# h6 w% j: D8 u: G" J9 g - Dim Height As Double# F& B1 ^5 Z0 M) Q, v
-
% J6 R% M- A! o0 S; X - ' 定义圆柱体! e5 F1 Q+ f) f
- Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
$ u8 ]9 u6 `+ p5 c - Radius = 5#
! r+ O0 P4 s, N" n W6 U% o( | - Height = 20#( G q9 J* {. Y/ O N; [( G! O
- , `6 O! {9 S2 y. T% Z$ W( A% p
- ' 在模型空间中创建圆柱体（3dsolid）对象+ S) \0 n' a" g" e' W+ O( d2 r
- Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
0 o1 v: m: [/ }% K- R6 n9 s -
* l5 W+ D1 @% ^' y/ A; Z" A - ' 更改视口的观察方向以更好地查看圆柱体 u( s+ }2 f8 t' e1 H* f
- Dim NewDirection(0 To 2) As Double# A. P2 C$ L( C' c; }
- NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
0 I( H/ }9 ?3 u& r$ z! x/ t! m - ThisDrawing.ActiveViewport.Direction = NewDirection7 x! |, p' V- N, x
- ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
( R5 w9 V+ ?1 S }$ Q - ZoomAll' y. n; s* F6 Q/ j
- End Sub
n# N( m1 M0 V: N
5 ]9 z- d( d B) }5 k
; A9 o6 l1 X) I9 \# B D( p9 T |
评分
-
查看全部评分
|
发表于 2019-5-5 14:32:32