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

伍佳乐

求大神编个程序，谢谢

woaishuijia

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddCylinder Method (ActiveX)（AddCylinder方法（ActiveX））
. u0 X0 r: ^  \3 C! K1 n

1. Sub Example_AddCylinder()
   " m# E4 ]% r& o2 v- z
2.     ' 此示例在模型空间中创建一个圆柱体。
   2 {4 U7 O( @" H2 @' e
3.    
   
4.     Dim CylinderObj As Acad3DSolid
   
5.     Dim Radius As Double
   ) j" T9 ]  K. E/ `3 f/ s) q# W/ N/ O
6.     Dim Center(0 To 2) As Double
   
7.     Dim Height As Double
   9 a# q6 J. G3 M) T3 B
8.    
   3 ]4 L+ r! u  ?" o) l2 |
9.     ' 定义圆柱体
   
10.     Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
    * _. v6 c. g0 b1 _( D2 t9 v
11.     Radius = 5#
    ( j) \6 R) v9 D" n4 l; R; J, `
12.     Height = 20#
    
13.    
    
14.     ' 在模型空间中创建圆柱体（3dsolid）对象
    
15.     Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
    8 o- |  Z, a2 [
16.    
    
17.     ' 更改视口的观察方向以更好地查看圆柱体
    
18.     Dim NewDirection(0 To 2) As Double
    , u2 o: y6 ?" O
19.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
      h) T0 }' K! Q) v8 U
20.     ThisDrawing.ActiveViewport.Direction = NewDirection
    . ?; S, }7 x( k5 v
21.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    + Q9 i7 R4 V7 j3 I' V" S; {  `
22.     ZoomAll
    
23. End Sub

复制代码

! T0 R( X5 d5 c3 s7 I

* g5 {5 Y3 a( s7 O$ E" C7 j: {% M