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()# ]2 O- | w7 k0 c; [
Dim ptInsert(2) As Double
& M y+ X" b b0 B% d( P3 a% j
Dim lastSel As AcadSelectionSet
$ @2 n0 R5 p4 E$ F! ^
Dim lastBlock As Variant
$ a# U6 a. p( U$ ~# s3 D
ptInsert(0) = 0
, I6 |5 _# a' i) z
ptInsert(1) = 0' i$ n, [. x4 Q9 Y' n$ I
ptInsert(2) = 0
$ E3 X9 z6 g6 S* }
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0+ G# q+ w R9 j
0 ?; ?, e6 q9 H7 ~/ { H4 |& c- {
4 Q# e# j" {: m2 }
- Z: u# L' W& O, S, V5 ?* r; |
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
! g5 d1 X, R% V# \: t
lastSel.Select acSelectionSetLast9 r+ @# y* t, L4 N
1 a- M0 h1 D7 h# I$ r2 U+ N; p! |
Dim B As AcadBlockReference '声明一个块参照变量) G* q5 L4 g: I3 ]
Dim P As Variant '声明一个变体变量用于接收三维点坐标( r' Y& N& c9 t# u2 x+ m+ y5 k
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量6 ?+ z' h/ A8 d* {
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组- E: q: o7 ^. Z0 l4 H/ d% M
: P. p% r5 \: {5 |2 m" {
lastSel.Delete '删除选择集
# ?+ q/ F$ s Q1 {
1 U5 ]8 l# f) {0 t$ V
5 p8 d# c6 G; X- R3 d+ x- \! k
ThisDrawing.Regen acActiveViewport
; q& C3 T& v h/ r# f; `
9 ^3 E3 q/ M3 e9 v
# N" Y$ ]. G9 X/ Z1 X
End Sub

复制代码

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

Private Sub cmdInsert_Click()6 b4 w) b6 G& \0 h/ t+ |2 e3 c
Dim ptInsert(2) As Double
2 L: P& b" {% c, z& t, l
'Dim lastSel As AcadSelectionSet
( K: O) _2 t0 ?2 O @3 J
Dim lastBlock As Variant% }/ {- q, h- ^& d( W D
ptInsert(0) = 0
, d' z0 \: r3 O. u
ptInsert(1) = 0
8 R/ C5 Z5 y0 Z1 P& O
ptInsert(2) = 05 b% L& }& i' r3 z
, B. R6 c5 e+ a& E/ Y
6 F* `! C$ i/ v! T r
4 _! N, |( X2 ~8 H0 m5 P% b
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
0 U- t1 [) G. l+ g/ }
'lastSel.Select acSelectionSetLast
) x. V/ w/ X3 Q
8 k1 i, o) j$ o2 Z% P, C7 v
Dim B As AcadBlockReference '声明一个块参照变量
3 u8 R3 D2 b1 V' m: T
Dim P As Variant '声明一个变体变量用于接收三维点坐标% u5 `1 H1 V% J# R
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
9 x$ ?4 l: [: C8 x! i9 @( T3 E8 L
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组! r) D7 M' m0 X
7 x4 P& E8 V! g! n4 b0 f
'lastSel.Delete '删除选择集# c, Q- F. s, a" e
! w* w3 G& u2 Y8 ~& o6 c8 N6 d; k
+ v) c" M$ R' X% U q' Y! s- j
ThisDrawing.Regen acActiveViewport
9 ]4 u) A0 A8 t5 E8 j- Y3 ?! m$ c
# j/ @/ c. A V( E
+ X: N& l8 f' _7 H3 }
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) - 5003 B j( w; G, w2 ]0 p
pNew(1) = P(1) + 1405.8; d9 H/ U' ^+ K/ n8 s% D) _
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()+ l& ?6 c4 B6 g" J: u9 u' X5 }
Dim ptInsert(2) As Double
1 c% O# G8 ]6 |
Dim lastBlock As Variant5 O" _4 P9 H% A: O
ptInsert(0) = 0( s3 B: |1 J f6 @
ptInsert(1) = 0
5 K2 [$ o3 ~* }6 h d. P
ptInsert(2) = 0
5 l& O. h- d/ M+ O, Q
$ u. N" i1 O0 l( @+ D
'----------插入块A 仅仅一个---------------------------------' V: z" N9 S9 R' m- c
Dim B As AcadBlockReference '声明一个块参照变量' ~8 s# o) T, O- K1 `7 j8 _
Dim P As Variant '声明一个变体变量用于接收三维点坐标. C/ J. w7 ^" i" n9 B
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
6 f5 h# `; I* U9 X4 a/ H
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
& L/ k2 c" D: g8 C7 I
'----------插入块A 完成---------------------------------$ u- o/ S! L. \1 n7 [4 I
3 \, O$ I3 ]$ c, h& |7 M* y
'----------插入块B---------------------------------
# y! D4 @- ]" j" c' ~* j3 \" s- r2 ~
'第一个块，需要单独插入
: z- c) a/ D% }6 }# S* S5 S6 |
Dim pNew(2) As Double! _0 V* x5 |- E! _$ Z# f
pNew(0) = P(0) - 500* f0 T3 p2 q2 g2 V/ v
pNew(1) = P(1) + 1405.8
1 d5 w4 K% m8 ?
pNew(2) = P(2)
( b1 E6 S3 l9 W' d9 D: a
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
& t5 t- E: P0 b: b* p$ Y
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
) y' {% {) w7 z* r# J
ThisDrawing.Regen acActiveViewport& P5 T7 N9 r9 v
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'左下角
& j% Q. {4 G$ b' P$ m
Dim MaxPoint As Variant'右上角& T$ t0 I$ ~# Q0 j/ Q! @1 J) R& ~' k
object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

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

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

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

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

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
/ `9 Q) u* o$ l6 _, stataki 发表于 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里怎么获取上一个创建对象的坐标啊？

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

评分