QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
查看: 1492|回复: 2
收起左侧

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

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

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

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

x

* @/ e( i5 g1 w  g+ V" |
发表于 2019-5-8 20:33:40 | 显示全部楼层
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide(ActiveX:参考指南)>Methods(方法)>AddBox Method (ActiveX)(AddBox方法(ActiveX)),其中长方体的长、宽、高参数有修改
5 I0 P* P& x( O) U
  1. Sub Example_AddBox()1 E5 \# `3 @2 }8 \
  2.     ' 此示例在模型空间中创建一个长方体。
    ' `, v$ @: v- Y" i, ]. A- s! n
  3.           S+ Q& J* E8 R0 d; _
  4.     Dim BoxObj As Acad3DSolid
    4 o8 ^+ c  ^7 ~2 O& H+ ^" W
  5.     Dim Length As Double, Width As Double, Height As Double
    ' z( Z! Q. K+ C9 y
  6.     Dim Center(0 To 2) As Double) w/ T5 X' g2 A; E" `% n
  7.    
    2 C8 F) A  `+ X2 s; Q6 V% F% |  O
  8.     ' 定义长方体9 \: z) [' n: d7 Z# Z3 a5 O
  9.     Center(0) = 5#: Center(1) = 5#: Center(2) = 0
    $ b/ Q4 m& w! b/ y0 g0 m
  10.     Length = 100#: Width = 50#: Height = 120#3 c) e5 ]3 {! T6 t4 ]. q9 u7 E
  11.     9 l5 X8 d. e* d7 O; z4 T" y
  12.     ' 在模型空间中创建长方体(3dsolid)对象
    9 h- q0 t, L! M# r, }$ M
  13.     Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)8 ]" r  ]/ V5 ]! M) y
  14.     & e" e; z2 c7 k' u
  15.     ' 更改视口的观察方向以更好地查看长方体$ h% S% M. d% h
  16.     Dim NewDirection(0 To 2) As Double8 \; ?1 B: ^$ |8 G: e/ V
  17.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    ! L5 W) g* P6 o# m8 R# |
  18.     ThisDrawing.ActiveViewport.Direction = NewDirection
    / w) M6 ~- v; n( q& `
  19.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    " R% U+ x' q' u6 G% ~$ h
  20.     ZoomAll
    : Q, q! q/ e) ?& o# \
  21.    
    $ [, R+ ^0 c7 E8 |7 _/ C
  22. End Sub
复制代码
. M$ b6 T2 [" e- }
& r1 m8 f$ x, |6 Z" u
. W; T( c6 p3 |. {4 J

评分

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

查看全部评分

 楼主| 发表于 2019-5-9 11:45:40 | 显示全部楼层
woaishuijia 发表于 2019-5-8 20:331 v* |3 D7 O1 b
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide(ActiveX:参考指南)>Methods(方 ...

" T5 H/ i6 {- T/ o! P9 U1 Y% r谢谢版主
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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