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

伍佳乐 · 发表于 2019-5-5 14:32:32

您需要登录才可以下载或查看，没有帐号？注册

x

求大神编个程序，谢谢

woaishuijia · 发表于 2019-5-6 19:37:41

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

Sub Example_AddCylinder()
& |$ U- w3 W$ l: F+ k( M( t
' 此示例在模型空间中创建一个圆柱体。. G! H: v& h- o4 B3 z
B# |- q8 w5 E
Dim CylinderObj As Acad3DSolid* R5 Q5 f, P$ b) \
Dim Radius As Double+ m' L5 a T% `# V; O$ _
Dim Center(0 To 2) As Double' F1 Z, C) ~2 ^4 G
Dim Height As Double% F' P& D/ N: q f
5 D: c8 M- u2 W
' 定义圆柱体
: {. x5 s2 R0 Q* n! H
Center(0) = 0#: Center(1) = 0#: Center(2) = 0#
$ h4 x8 I4 Q0 b
Radius = 5#" d5 u, i1 o9 B( _
Height = 20#) L2 j5 [% f, o0 ~" x' H% h
) I. h# E. H1 o9 ^
' 在模型空间中创建圆柱体（3dsolid）对象( E, @* Q' b9 P: a
Set CylinderObj = ThisDrawing.ModelSpace.AddCylinder(Center, Radius, Height)0 c9 e, E1 n3 ~3 Q1 @9 A' G0 ^
% }8 q6 R9 P- ?
' 更改视口的观察方向以更好地查看圆柱体( _! a, i- P! Y& E
Dim NewDirection(0 To 2) As Double, q- Z0 R% m/ d4 M8 ^ Q
NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1( J# {$ @5 F1 `: x
ThisDrawing.ActiveViewport.Direction = NewDirection
; q. v8 }, O3 x( l$ C% J( ]
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
) ?% t8 H. q, l. K+ l0 _8 P- [% s
ZoomAll, s" I, A$ ?" ?! k- b7 `
End Sub

复制代码

		自动登录	找回密码
密码			注册

通知