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

伍佳乐

求大神编个程序，谢谢

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））
% R- `9 ~4 Q0 R. V4 @. s/ c# x0 x4 \7 p

1. Sub Example_AddCylinder()
     X6 Z% O% ^( X  [
2.     ' 此示例在模型空间中创建一个圆柱体。
   
3.    
   / N- }5 z7 p1 Z6 b" I! Z
4.     Dim CylinderObj As Acad3DSolid
   
5.     Dim Radius As Double
   & k: O9 g* Q* r" T" u
6.     Dim Center(0 To 2) As Double
   
7.     Dim Height As Double
   
8.    
   + _  R9 [( o- E% I* d$ A
9.     ' 定义圆柱体
   ! `' x. `3 k6 }. N0 ]4 {
10.     Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
    # [  a6 W# z6 C7 f
11.     Radius = 5#
    
12.     Height = 20#
    2 R3 p( {! K1 \" a$ @( [+ r4 o
13.    
    
14.     ' 在模型空间中创建圆柱体（3dsolid）对象
    
15.     Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
    
16.    
    
17.     ' 更改视口的观察方向以更好地查看圆柱体
    9 n2 i8 C' e8 W" [& i+ }+ j
18.     Dim NewDirection(0 To 2) As Double
    
19.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    - C; y9 f/ X* f
20.     ThisDrawing.ActiveViewport.Direction = NewDirection
    . u$ [: z. Y2 a6 F7 q7 E
21.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
22.     ZoomAll
    ! K5 @5 v  b+ K
23. End Sub

复制代码

) w$ @1 I) c2 b: e  T( x/ V
/ ^" d. z* B  W  Z& W; U