|
|
发表于 2019-5-8 20:33:40
|
显示全部楼层
来自： 中国北京
以下内容译自 AutoCAD 帮助>资源>开发人员文档>ActiveX: Reference Guide（ActiveX:参考指南）>Methods（方法）>AddBox Method (ActiveX)（AddBox方法（ActiveX）），其中长方体的长、宽、高参数有修改
& Q" C+ T- R! z% l$ Z' P- Sub Example_AddBox()
* m1 ?# R, k( v6 L' E - ' 此示例在模型空间中创建一个长方体。
& F ^# z8 L* @! c -
/ d+ H# D$ A, Q* o% f" }. p - Dim BoxObj As Acad3DSolid" j! r8 {3 p6 c5 }% @
- Dim Length As Double, Width As Double, Height As Double6 z+ j n/ B9 L3 w& s$ b
- Dim Center(0 To 2) As Double/ F2 [2 a) R m2 ^$ {; n. F0 |' t+ f
-
5 j+ Z/ R) X" c& v# ] - ' 定义长方体
l* s: ^; |& l/ W, v! ` - Center(0) = 5#: Center(1) = 5#: Center(2) = 01 z' z: ~4 t; d5 p* m% {
- Length = 100#: Width = 50#: Height = 120#' v0 c- N+ [% s$ t4 W& c
-
: l! R* N, ~8 R) J* n6 e7 K/ g2 N - ' 在模型空间中创建长方体（3dsolid）对象) `+ Y+ ]$ s2 c4 ^ @$ O1 u c% i7 d
- Set BoxObj = ThisDrawing.ModelSpace.AddBox(Center, Length, Width, Height)# b( O/ s0 _7 r7 G R- B( h
-
6 Z1 K1 r" O( w7 M9 K# \6 i9 g - ' 更改视口的观察方向以更好地查看长方体6 ~7 H1 ~3 ]- P0 G% @7 [! x L z
- Dim NewDirection(0 To 2) As Double
. G- F* e; e, B, ^. b% Q! A - NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 16 Z/ X& M" I! {
- ThisDrawing.ActiveViewport.Direction = NewDirection7 a4 m& H% m* }. B" d, G. m
- ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport! s, c+ n0 r! ^" O4 E' c- V
- ZoomAll
4 R( F# L% ~2 }8 [ -
& B# ?- |& I' a3 k" s4 L& ` - End Sub
A. p/ [" ^. X; [! Q# P6 `
" R/ F! F% z% g! I9 d1 ?1 n# K3 ^+ l; q/ j9 J
|
评分
-
查看全部评分
|
发表于 2019-5-8 12:48:40
楼主