|
|
发表于 2019-5-6 19:37:41
|
显示全部楼层
来自： 中国北京
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））/ p9 U% T( a @" b' P+ ?( R/ [
- Sub Example_AddCylinder()' K9 I1 F- _0 q/ e: h' ~& C
- ' 此示例在模型空间中创建一个圆柱体。9 ]" u& p- S$ w; ]
- " B$ B: K# }9 V% d$ u
- Dim CylinderObj As Acad3DSolid; e; X1 O1 m) B
- Dim Radius As Double$ o4 U$ d* n! Q
- Dim Center(0 To 2) As Double( s: e& q+ P, I
- Dim Height As Double1 ]! K5 l0 @- Q1 e2 d7 [, W
-
' O. X9 C9 a. t' W - ' 定义圆柱体3 j0 x: o: |3 O
- Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
3 D* B2 t& O5 w4 F3 y$ {, Z& V - Radius = 5#
4 N+ o E+ O8 B; `' O - Height = 20#5 S: L- @! E; T0 g! M6 ~
-
1 N f) d% W X4 K6 i- O7 u- u - ' 在模型空间中创建圆柱体（3dsolid）对象
' `, V3 _( M& {+ T; K( C/ e1 | - Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)1 g# c. J- i; m/ K( x0 e
- ; A( v/ I' w0 E E8 r/ P
- ' 更改视口的观察方向以更好地查看圆柱体7 G( e6 y: G! K
- Dim NewDirection(0 To 2) As Double; V5 i5 z! F ~5 U; l8 s) \, H& ?- H
- NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 16 C* C# w) O. v. g
- ThisDrawing.ActiveViewport.Direction = NewDirection
. |5 v: g0 Z% Z - ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport6 w# O2 Z4 `2 j: u( q
- ZoomAll' ^% a8 `9 D' r' J4 R
- End Sub
% L4 l1 g7 v' w+ v. {' O& N* Q. [# I# [6 m- E; A/ _# h6 g: E3 ?3 I
; L, M3 M3 W9 ]; Q
|
评分
-
查看全部评分
|
发表于 2019-5-5 14:32:32