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

伍佳乐

求大神编个程序，谢谢

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））
0 {9 E8 I* l! m

1. Sub Example_AddCylinder()
   + v* x( S, W) T( C
2.     ' 此示例在模型空间中创建一个圆柱体。
   
3.    
   , f) u) {& p+ [, ]) G
4.     Dim CylinderObj As Acad3DSolid
     ~4 J8 y9 A  N, B, _
5.     Dim Radius As Double
   - h1 @( U  ]2 p$ N' Z; c- @
6.     Dim Center(0 To 2) As Double
   ; M3 W' \# A. M1 W; @" \8 V
7.     Dim Height As Double
   
8.    
   ) T3 r9 M7 C, X6 m) |% Q
9.     ' 定义圆柱体
   
10.     Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
    
11.     Radius = 5#
    
12.     Height = 20#
    
13.    
    
14.     ' 在模型空间中创建圆柱体（3dsolid）对象
    
15.     Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
    
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
    6 m+ `  d5 K2 ~
22.     ZoomAll
    
23. End Sub

复制代码

, o. ~/ w* R- H" M. j) Q% h

, L# E9 ~: ]9 p+ e5 I1 G1 a  X0 v