QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2226|回复: 2
收起左侧

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

[复制链接]
发表于 2019-5-8 12:48:40 | 显示全部楼层 |阅读模式 来自: 中国浙江舟山
安装
主题分类用于问题归类:

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
" @8 m- ]7 z9 t7 G8 }3 k& _( D
发表于 2019-5-8 20:33:40 | 显示全部楼层 来自: 中国北京
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide(ActiveX:参考指南)>Methods(方法)>AddBox Method (ActiveX)(AddBox方法(ActiveX)),其中长方体的长、宽、高参数有修改
2 P0 ]1 d3 q7 j3 j8 r' R
  1. Sub Example_AddBox()
    * v+ l+ v+ _- Q) L. t& a0 }
  2.     ' 此示例在模型空间中创建一个长方体。6 E) x5 i; O4 P+ \8 j/ W
  3.         
    ! G6 b3 A7 Z0 k6 @
  4.     Dim BoxObj As Acad3DSolid) l% ?1 z. h- v
  5.     Dim Length As Double, Width As Double, Height As Double% O8 H5 \- U9 J
  6.     Dim Center(0 To 2) As Double: P. }1 H" z7 ?$ T
  7.     # J) ~) c) p! {, V# r% p% W; T$ |+ s
  8.     ' 定义长方体3 p1 B, X# y# S; V# p/ @1 K
  9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
    ) O6 ~9 Z7 x4 S5 i0 P3 n$ r0 n* Q
  10.     Length = 100#: Width = 50#: Height = 120#6 Q" k7 f% x( R; [2 P! T2 e+ ]5 ^
  11.     5 b. b, i) S7 k6 o
  12.     ' 在模型空间中创建长方体(3dsolid)对象5 {; Q7 T! p( a# q& z" f
  13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)- r5 K0 {6 x3 V4 b( Z3 x. ~  I* [
  14.    
    / k3 W/ Z/ w9 `
  15.     ' 更改视口的观察方向以更好地查看长方体
    6 `+ Y1 ~; b% e/ Q# f$ z7 s' g
  16.     Dim NewDirection(0 To 2) As Double3 b5 D+ y4 N+ _
  17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1! \5 ^( v/ H/ O: y
  18.     ThisDrawing.ActiveViewport.Direction = NewDirection- m. c  P; t& c. C) A
  19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    , C2 d! G7 d8 p  l. u
  20.     ZoomAll
    ' c1 s8 q' R( m9 w
  21.    
    * Q( b5 C, g. k, j9 x- B, l
  22. End Sub
复制代码
: r+ J/ E, X2 h/ X
* i, e% r- y9 N# O; t
3 A9 G; y. t! ]7 U; @" O

评分

参与人数 1三维币 +5 收起 理由
2005llnn + 5 感谢您解答了求助的问题。

查看全部评分

 楼主| 发表于 2019-5-9 11:45:40 | 显示全部楼层 来自: 中国浙江舟山
woaishuijia 发表于 2019-5-8 20:33, p0 ~/ k- X9 E( z2 M4 t
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide(ActiveX:参考指南)>Methods(方 ...
3 T: W3 y. U* x8 M% @! k6 L
谢谢版主
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表