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

伍佳乐

求大神编个程序，谢谢

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））
8 B! \0 |4 {9 I- I! G; f4 V: ]1 I

1. Sub Example_AddCylinder()
   & t1 v0 a7 j/ P/ H. i0 n
2.     ' 此示例在模型空间中创建一个圆柱体。
   
3.    
   
4.     Dim CylinderObj As Acad3DSolid
   
5.     Dim Radius As Double
   
6.     Dim Center(0 To 2) As Double
   * v9 S% E+ U2 U- K3 c7 K3 i
7.     Dim Height As Double
   3 t  F8 b& P; ]
8.    
   
9.     ' 定义圆柱体
   
10.     Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
    
11.     Radius = 5#
    + o; v4 p0 V* o  S9 |+ T3 b
12.     Height = 20#
      Y+ N' G$ J; R) w4 U, p0 I1 L
13.    
    
14.     ' 在模型空间中创建圆柱体（3dsolid）对象
    
15.     Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
    4 I9 n2 T7 Z% W
16.    
    
17.     ' 更改视口的观察方向以更好地查看圆柱体
    
18.     Dim NewDirection(0 To 2) As Double
    
19.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
20.     ThisDrawing.ActiveViewport.Direction = NewDirection
    
21.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
22.     ZoomAll
    8 y, M" ^0 D& ^; m- C( Y, g' d
23. End Sub

复制代码

7 B2 X# b" t9 y6 l5 R
) x) E8 m" k* ~* V) `