vba里怎么获取上一个创建对象的坐标啊？

tataki · 发表于 2012-4-3 19:49:29

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

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

x

我定义了4个块，想通过输入每个块的数量达到左边的效果，就是块能自动在我需要的点插入，不用手动选择。
其中blockA作为基本块，我指定插入点是原点，当要插入2个blockB时，我是想这么实现：先获取上一个创建对象，也就是blockA的坐标，但是有两个问题：
1.我知道有acSelectionSetLast的方法，但是不会用，怎么把选择的上一个创建对象赋给某个变量然后提取需要的信息呢？
2.我想获得的坐标是blockA的插入点坐标，这个怎么实现呢？
之后blockB的插入点就根据blockA的插入点通过计算后插入就行，现在卡在那两个问题那里了
版主和高位高手们支个招啊。我把图形和程序（论坛不支持，我做成压缩包了）都上传上来了。谢谢

woaishuijia · 发表于 2012-4-4 08:29:21

方法一:按照楼主的思路使用选择集

Private Sub cmdInsert_Click()
5 c7 \, `; U# D# ]$ V
Dim ptInsert(2) As Double, J0 x* B: ~) @" V7 e- J
Dim lastSel As AcadSelectionSet) g7 ]" n+ D. G( P; `4 ~1 o4 R2 I( |
Dim lastBlock As Variant
0 N3 {9 T9 i% S. \1 _
ptInsert(0) = 0
2 [. I4 d" R, u& k
ptInsert(1) = 04 O% X0 G7 z4 ]3 b) i3 g8 T
ptInsert(2) = 0" Y U6 t3 I# R8 B0 o
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 01 O0 t) d, U" V% @% E, O
* M/ P+ x3 e2 f; V" W4 I
8 y: x! m- a' F0 d
: T; s" i) c3 d4 U9 U( r8 s
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
) @3 u) B1 }7 _9 Q+ e5 C
lastSel.Select acSelectionSetLast
* r% g' l D& I# X' f. E
3 S& V4 j% ~. P7 n# S7 ]2 p! f
Dim B As AcadBlockReference '声明一个块参照变量
4 V" p3 z+ n/ Y) q2 x
Dim P As Variant '声明一个变体变量用于接收三维点坐标
& {8 G2 N0 |4 F) }# e
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
& i+ F6 N0 M" u
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
$ R2 B' ~3 z9 u/ c+ T
0 P- p" v3 R' t2 U) w/ I
lastSel.Delete '删除选择集6 f, y" g$ l7 x& \. @$ k+ f4 p
) u8 F7 m2 ~8 A0 e. K) S, G+ a
7 Y4 l! V! b1 l
ThisDrawing.Regen acActiveViewport" ^/ L: p, x' p9 _4 o7 c
0 ^. Q8 S6 w0 C: ?+ \9 B8 g) x; x4 k5 |
8 n1 N) J2 |. b3 p" R3 q: {2 A
End Sub

复制代码

不过,对于本例,完全可以不用选择集,直接使用前一个对象的返回值.如方法二:

Private Sub cmdInsert_Click()
& m2 }$ c7 ?" x7 D
Dim ptInsert(2) As Double4 c* B9 C9 K# V7 \
'Dim lastSel As AcadSelectionSet
- V' d% b4 N3 w. P
Dim lastBlock As Variant0 v0 _' b2 \8 B+ x2 B" c' Q
ptInsert(0) = 0
- B7 ^1 D' N# M1 Q9 u2 ^
ptInsert(1) = 0- A6 [" o8 \- q# t. |3 V
ptInsert(2) = 0
$ l9 e# |) G; `( Y
/ l, p5 h) s9 b( n3 A# j
2 [8 V1 n0 o( a6 E; ~
) [- m# u* g0 ^# m6 k
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
0 b; b4 t( t% \. j
'lastSel.Select acSelectionSetLast3 X/ `$ j2 H. |+ h: P* |* m" Q
+ W7 D/ D# ^! a
Dim B As AcadBlockReference '声明一个块参照变量
4 q9 O7 {+ Q3 t O
Dim P As Variant '声明一个变体变量用于接收三维点坐标" ? r+ H$ c$ \- i8 W
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)# Y5 X1 L5 m" T4 s$ p: N
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组6 Q. Z* S0 f4 ~9 e- D8 G0 b
/ Q! u* y' ?4 [: `( e
'lastSel.Delete '删除选择集. T1 z7 Z8 J) S
$ o3 [ d) [ n2 O+ H& p0 W
" b; c3 A4 b" ] b, d1 y4 A
ThisDrawing.Regen acActiveViewport H5 K# [/ E4 s! k" R
7 ]9 a( T5 ?4 H {
, ~3 r' R2 ]5 c
End Sub

复制代码

tataki · 发表于 2012-4-4 09:33:50

本帖最后由 woaishuijia 于 2012-4-4 11:17 编辑

首先感谢斑斑大人一大早的悉心解答，你说的第二个思路很好，不用选择集，直接使用块的insertPoint属性获取插入点坐标。我又学到了一招，呵呵。我修改了一下代码，现在可以按照坐标计算后来取得blockB的插入坐标，但是存在一个问题，换算后的坐标实际上和blockA的左上顶点坐标有出入（y方向出入0.72，虽然很小，但是显得不够严谨），因为我是用下面这个坐标换算得出的blockB插入点的：

pNew(0) = P(0) - 500
9 t6 m3 q& x: I8 O. {' v
pNew(1) = P(1) + 1405.8
! }( m4 U5 x, D6 w7 M# L1 l# u$ x& d
pNew(2) = P(2)

复制代码

我知道出现问题的原因可能是精度问题，所以再请问斑斑大人，可不可以让程序实现在插入blockB的时候，系统通过捕捉blockA左上角顶点来实现呢？
就是Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)这一句中，pNEW如果能是系统通过顶点捕捉后自动产生的坐标数据，而不要是我通过换算后的坐标。
谢谢版主

Private Sub cmdInsert_Click()
: t! t" ~ r8 O- L
Dim ptInsert(2) As Double! K; p* A% g) f9 K' i
Dim lastBlock As Variant2 @1 x0 r) B7 x( {, H4 c0 l' [! H
ptInsert(0) = 02 J& u$ _1 Q8 @8 {) \2 V
ptInsert(1) = 0
: ^4 X6 o7 F! @! ^, h
ptInsert(2) = 0" Y) C' w; Q* g+ I2 m9 y
& ^4 i8 e( x* b" e! f
'----------插入块A 仅仅一个---------------------------------0 m2 r3 A! J3 }! o
Dim B As AcadBlockReference '声明一个块参照变量! | t3 ^: q; P
Dim P As Variant '声明一个变体变量用于接收三维点坐标
) O1 i7 H' w! Q: F0 n
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
6 e. v# v) F# |/ {/ k
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组( y/ R$ {) D/ {7 ~/ V
'----------插入块A 完成---------------------------------
+ D/ K% M/ p$ o5 E b; Z1 H! u
0 d9 j( t/ c5 X' K; x
'----------插入块B---------------------------------
) Z8 e# X1 ^5 ?; R/ A
'第一个块，需要单独插入2 i* ?% w' X9 l5 F( F: ]& u; r& V; w
Dim pNew(2) As Double6 ^7 v% b4 }$ q+ E. q/ C9 T8 `. T
pNew(0) = P(0) - 5006 I5 o% H# b2 @
pNew(1) = P(1) + 1405.8
- ^& W6 g) k' C! Q' x
pNew(2) = P(2). |' r0 s/ z! w2 g1 O
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)) o1 Y, `1 C, U) b7 {
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组% W0 m& {/ h, g1 e
ThisDrawing.Regen acActiveViewport
: ]) |* I% M* i( [% F! w+ h H- {
End Sub

复制代码

woaishuijia · 发表于 2012-4-4 11:27:05

本帖最后由 woaishuijia 于 2012-4-4 11:30 编辑

3# tataki
看了一下你的图,blockA的高度是1405.08,而你在代码中却是

pNew(1) = P(1) + 1405.8

复制代码

当然相差0.72了,呵呵

VBA不能实现对象捕捉,但可以通过图形对象的GetBoundingBox方法获取图元对象边框的最大和最小点,即对象在图形界面所占矩形范围的右上角和左下角点.角点是以 WCS 坐标值返回，且矩形边与WCS的X, Y, Z 轴平行。方法是

Dim MinPoint As Variant'左下角
3 Q4 m. p" `( K8 a( f. h) y
Dim MaxPoint As Variant'右上角
0 h9 d3 r- Q& y+ A b1 e* A4 m
object.GetBoundingBox MinPoint, MaxPoint

复制代码

然后再通过这两个点坐标结合对象的其它属性进行相应的计算

tataki · 发表于 2012-4-4 11:52:18

呵呵，漏看了一位数，罪过罪过啊！
原来在VBA里不能实现对象捕捉，这一点真是没想到，在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各有千秋。

另外，GetBoundingBox这个方法我知道，以前发过一个帖子问过，当时也是斑斑给回复的，呵呵，印象深刻

www1974 · 发表于 2012-4-4 23:04:16

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
4 F7 w. I$ @8 S哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
* P# o8 M2 {6 B0 h! i3 ^) ?tataki 发表于 2012-4-4 11:52 http://www.3dportal.cn/discuz/images/common/back.gif

lisp一头雾水还能设置捕捉，牛啊！说得大家一头雾水~~

jyzas · 发表于 2013-2-21 23:23:43

谢谢楼主分享

tthsdu · 发表于 2019-6-27 09:08:48

版主辛苦，特登录赞一下

chengeng430 · 发表于 2021-1-21 07:32:00

学习大神们的经验

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

通知

[已答复] vba里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块