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

伍佳乐

求大神编个程序，谢谢

woaishuijia

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

1. Sub Example_AddCylinder()
   - r* S. r8 j/ r2 `
2.     ' 此示例在模型空间中创建一个圆柱体。
   
3.    
   
4.     Dim CylinderObj As Acad3DSolid
   
5.     Dim Radius As Double
   ! [# ^2 R7 B  A& l7 d6 X8 F
6.     Dim Center(0 To 2) As Double
   , m) R6 p; J6 G( h% f  V$ o/ l
7.     Dim Height As Double
   3 g9 V+ I, }  L) Z
8.    
   . z! O9 @( `# ~8 o* t. h2 [
9.     ' 定义圆柱体
   ! f- y' G5 f: f" o' Q
10.     Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
    
11.     Radius = 5#
    " ?# F( H+ ^3 |8 _5 Y
12.     Height = 20#
    9 {, ^; U- @8 b; V
13.    
    1 Z" v+ ^2 U/ W& f3 Z
14.     ' 在模型空间中创建圆柱体（3dsolid）对象
    % h) k4 A1 p! D* f8 a& g
15.     Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)
    ' j" Z4 t' ^0 y. |$ X* U- A7 u
16.    
    
17.     ' 更改视口的观察方向以更好地查看圆柱体
    , C8 h/ f( W! j; u# y
18.     Dim NewDirection(0 To 2) As Double
    - B/ }5 A9 T: t
19.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
20.     ThisDrawing.ActiveViewport.Direction = NewDirection
    7 T, \5 v- Y- }9 `$ T
21.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    ( J# ~% J  U  A* f, C
22.     ZoomAll
    . D3 T2 L% q; x9 b
23. End Sub

复制代码

0 I6 R. ?; `! J0 h9 I