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()) Q5 _$ Y5 q; ?. C3 K* [9 |
Dim ptInsert(2) As Double
Dim lastSel As AcadSelectionSet
% }/ A2 L3 i: m9 V! L6 j
Dim lastBlock As Variant( W$ |9 o. {" k- d0 P+ j6 G
ptInsert(0) = 0
! P: i- P8 ?8 S2 g- N* f/ o
ptInsert(1) = 0& w9 w5 q) d* }+ G
ptInsert(2) = 0/ f" N q% w7 y% Z
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0- L, o& o6 \6 L" C
9 Q% e4 j* `3 I
8 A! Z) {- n" J
9 \% L* G. U: j2 d
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '4 X- } \5 j$ C# ^
lastSel.Select acSelectionSetLast
% T3 o! U' ?9 b! `: f
- d& Z4 E. Q/ Y* e+ ~$ i; k; K# M
Dim B As AcadBlockReference '声明一个块参照变量
2 ^- A4 M: ?4 n4 S7 j/ D, K
Dim P As Variant '声明一个变体变量用于接收三维点坐标
0 ?6 }8 k1 n8 s0 C; x1 a
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量) N0 W0 C' X4 |# g0 B+ w6 c$ @0 n
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组! d4 l! ^/ n: i. C1 Y6 d# y' m
+ p) [: y8 F+ ^( r" X, s9 D
lastSel.Delete '删除选择集( c* [9 S, a+ L1 b5 s0 f
3 c- j. Y9 d- e( @& T3 F% q2 F
# a3 J' F4 }# t: b" s% k
ThisDrawing.Regen acActiveViewport
7 g a, e1 w9 n0 _) i- h* A
. W4 Y2 S* c) D8 J2 E
9 M$ v( n+ H! \) M. i
End Sub

复制代码

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

Private Sub cmdInsert_Click()
1 \+ s/ [( L) e
Dim ptInsert(2) As Double
& G1 C) Q# J9 c$ x
'Dim lastSel As AcadSelectionSet5 H/ `6 \+ g/ R; b/ {
Dim lastBlock As Variant3 @" y0 {* e# x0 Y& n4 o8 I* C- ^
ptInsert(0) = 0
0 M. d4 }3 e# l1 t8 Q' L7 ^6 l; |
ptInsert(1) = 0
7 d6 O7 _; L% W2 o/ y1 n: l/ d
ptInsert(2) = 0
9 h; t$ d7 a$ z; C
8 {* _$ `, v% F0 l7 i
. l; _, c; y$ L
. b; s. e5 I& l8 F: t
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") ') R, y1 B8 Y8 i; k% T
'lastSel.Select acSelectionSetLast
) P1 f$ E5 O; u, b! ]- |, o
6 I0 J/ s* }9 m4 h. Z7 e! Q
Dim B As AcadBlockReference '声明一个块参照变量9 A) @4 r9 z0 M+ ]; ]/ e) M% w! B
Dim P As Variant '声明一个变体变量用于接收三维点坐标( K" j$ c# d, w" [( r/ i
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)( A; a. ^; u Z+ Y+ i! T" r4 C
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
0 a$ V6 ~$ x% U& v
& H2 C4 J6 M- d/ v( G
'lastSel.Delete '删除选择集- C4 X) {- f3 R# Z7 d
) a5 M) M! b8 B6 X% u, h
: N+ ^* r2 C! [7 b6 b. |. }
ThisDrawing.Regen acActiveViewport
/ ~) G! x( }+ ?; K2 Z
# j+ Z' r& \0 _$ B' V+ i
- i! n% {) I. k4 d" N
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
6 h$ |( [6 J2 A E, |# }4 U
pNew(1) = P(1) + 1405.8* q3 }4 M9 N P9 P6 |
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()! C }9 a. L& Q0 ]- _
Dim ptInsert(2) As Double$ a* y* _3 T H& ?1 s2 R q
Dim lastBlock As Variant
; x: o! n8 N! D- w
ptInsert(0) = 0- t$ X: r4 F$ M* p
ptInsert(1) = 0
$ T8 K9 F( ~2 S8 j8 [
ptInsert(2) = 09 h3 ^& t. ]$ w5 q: R
6 U6 b' ~4 L) |
'----------插入块A 仅仅一个---------------------------------, j* u/ c7 V& P! Z4 q' Y& ~0 _# V
Dim B As AcadBlockReference '声明一个块参照变量6 R' Q. r0 \' ~3 l
Dim P As Variant '声明一个变体变量用于接收三维点坐标
! I0 R w% J+ H V' k
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0). G- W3 F0 N; D2 t- Y8 t+ Q% j6 C
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组2 n8 c: `- ~* i7 W+ c9 J4 t
'----------插入块A 完成---------------------------------, ]1 T3 K& P3 ~) p9 D: m5 C
+ R7 c% ?( ?% g. x7 {8 a8 M1 Q9 M* @* \
'----------插入块B---------------------------------! W8 n3 r( |$ _
'第一个块，需要单独插入
) ]( K' X Z4 `# S: a0 Y% j3 }
Dim pNew(2) As Double
/ _1 G$ X% w6 X, V
pNew(0) = P(0) - 500
- W6 g- F: e# [8 P j+ e/ C: x
pNew(1) = P(1) + 1405.8
?0 I- X! j4 B+ c% F1 k
pNew(2) = P(2) p' M; V. c; s! P# X/ e" S
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
& I: f7 P& @7 E. {$ ]
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
# T6 v4 Y: K( j& X
ThisDrawing.Regen acActiveViewport) ?7 g+ `/ ^$ H: i
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 C, E2 t( Y6 E$ b
Dim MaxPoint As Variant'右上角6 C3 g6 Z+ u3 C. Q6 Q7 l
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 R& [% _4 X+ S& r3 t
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
7 E- y( G/ T$ k5 Ztataki 发表于 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里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块