怎么用VBA程序在AUTOCAD中画一个三维的圆柱

伍佳乐

求大神编个程序，谢谢

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））

1. Sub Example_AddCylinder()
   
2.     ' 此示例在模型空间中创建一个圆柱体。
   
3.    
   
4.     Dim CylinderObj As Acad3DSolid
   
5.     Dim Radius As Double
   : e: C. r8 k/ }
6.     Dim Center(0 To 2) As Double
   
7.     Dim Height As Double
   9 J: O9 c) K, q2 U& M& {
8.    
   3 r2 h6 X8 T  v& F1 A' C  b
9.     ' 定义圆柱体
   
10.     Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
    
11.     Radius = 5#
    
12.     Height = 20#
    $ j! j8 o% C! J# n% E
13.    
    / T5 i0 B3 y& X) @
14.     ' 在模型空间中创建圆柱体（3dsolid）对象
    
15.     Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
    7 v3 Z8 ^8 n9 U/ |1 i5 o8 T# u# @
16.    
    # I! W( q, ?5 {1 P
17.     ' 更改视口的观察方向以更好地查看圆柱体
    ) W1 I" E4 ~* }8 J" j$ ]
18.     Dim NewDirection(0 To 2) As Double
    , {5 w, D5 w* @% A* p3 E; A
19.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    " I2 U" n. M* E' K5 t' U
20.     ThisDrawing.ActiveViewport.Direction = NewDirection
    7 Y' I1 l& s8 h% X+ b+ s+ M9 @$ _
21.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    6 P2 W; b$ p( K! R
22.     ZoomAll
    
23. End Sub

复制代码

8 ]: L! I/ ]- S6 S' m9 T+ R* V6 n