怎么在CAD中用VBA编一个长100宽50高120的长方体

伍佳乐 · 发表于 2019-5-8 12:48:40

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

x

woaishuijia · 发表于 2019-5-8 20:33:40

以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改

Sub Example_AddBox()
2 K' |4 l/ p, r# K! \7 c
' 此示例在模型空间中创建一个长方体。$ j( X# K9 e% w% i
7 I& P p( W! l, H0 ~( n T
Dim BoxObj As Acad3DSolid
2 j7 g+ P( ^& u$ |+ F2 ~
Dim Length As Double, Width As Double, Height As Double! j" U% S1 k; y* a. r& {$ G
Dim Center(0 To 2) As Double
6 X# L1 J% h) J3 T/ K& I" ?' U
( S+ \4 Y/ G2 T1 Z
' 定义长方体 N7 S3 Z- u" G# S, M
Center(0) = 5#: Center(1) = 5#: Center(2) = 0
* J! }5 ?' S4 {
Length = 100#: Width = 50#: Height = 120#1 v% f: l' I& G: Y2 M
1 H3 O/ g/ [2 m6 Z* r6 h. p
' 在模型空间中创建长方体（3dsolid）对象7 f& n1 B6 l5 d# D: c* X. h S( T, R
Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)2 K8 P1 u) `& h6 I u7 Q
1 l! T! z$ _9 j2 C
' 更改视口的观察方向以更好地查看长方体9 I- m* C) ?* y1 @7 F$ R6 ~
Dim NewDirection(0 To 2) As Double
' B- H6 y- E( I" m# z
NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1) ?; k* h6 Y d/ V) f. b
ThisDrawing.ActiveViewport.Direction = NewDirection2 Q0 M x2 s/ n2 f
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
c" `$ R' s, l% w. _5 ?7 _
ZoomAll4 l: C9 z, s+ }% b7 L4 R
4 p; m) N K- |) R2 L, {
End Sub

复制代码

伍佳乐 · 发表于 2019-5-9 11:45:40

woaishuijia 发表于 2019-5-8 20:33
$ z9 U" U3 Z( B I以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方 ...

谢谢版主

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

全站		2005llnn 说: CAD几何作图竞赛题（2024年4月），至4月17日止。	8天前
全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04

通知