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 U) |# m3 R; H
Dim ptInsert(2) As Double) U9 K5 M i1 ?" Q A
Dim lastSel As AcadSelectionSet
4 |- i3 i$ S( e2 W8 u0 M% X
Dim lastBlock As Variant' @1 m, g" z9 a9 M, }
ptInsert(0) = 04 w7 n3 \4 P+ O' z1 l
ptInsert(1) = 0# r4 |2 Z9 W0 j# X
ptInsert(2) = 0$ J# E) W0 S. Y+ v& Z( K- n
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 05 p# Z+ t+ x: `7 f
* \9 p; I. P" g8 P
2 s. f( P' B; M/ f2 v
/ Y0 |! ~3 l* u6 F2 p. M3 b
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
$ ]# ~: I! t1 P$ D3 B. J9 c5 E
lastSel.Select acSelectionSetLast v S9 N* A7 O- f
* W# Q8 z: H# |0 D
Dim B As AcadBlockReference '声明一个块参照变量# ]' f* s; O, a/ F6 i2 f- {
Dim P As Variant '声明一个变体变量用于接收三维点坐标5 @1 `$ s; f% o* e
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量2 a. \0 }0 ]- v; v( ^ p
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
; V3 n. U3 `: U+ C5 a
: \" Q6 i- P* M; q6 l6 t
lastSel.Delete '删除选择集
- O3 N0 d' ?- _2 R% H- _2 U9 ?3 C
+ H. I( j6 @& c: t
* V, O2 W$ p& g0 ]
ThisDrawing.Regen acActiveViewport
+ S$ P! q/ j: q( {' g
( Y! t& j: T3 u6 Z: \. c
* O" F- J2 N# U! |8 {* _# m- F
End Sub

复制代码

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

Private Sub cmdInsert_Click()
/ o4 _' t& K& z! E; s$ A' `% H# D
Dim ptInsert(2) As Double2 x3 y/ x* n; f* Y a6 f' R
'Dim lastSel As AcadSelectionSet5 a+ `6 R' [% ~
Dim lastBlock As Variant( I6 M1 p9 \! ~! V
ptInsert(0) = 0
7 ^ R6 [/ {& D% X, b, |
ptInsert(1) = 08 h: O& N3 G' F9 G' k+ f5 a
ptInsert(2) = 00 P: O' y+ J3 G2 [
; Z/ F0 L# l A2 |
8 l" \' O( Y4 D' V" Y
: c6 ?9 e E! ~
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
" h' w7 l0 s9 O
'lastSel.Select acSelectionSetLast
: ~* t$ u+ H; D: n. H, C
/ Q- @8 p, r G0 Q
Dim B As AcadBlockReference '声明一个块参照变量
. B& _# H3 I# s1 D6 d+ g( S4 T
Dim P As Variant '声明一个变体变量用于接收三维点坐标
2 D0 L. O4 q, M9 h$ }
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)" X- Y, ]+ W4 z. N9 Y U1 I
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
! K) K+ v) b5 B+ \+ y% I2 P ?' q1 Z
* r: M8 u7 a8 o- v4 t1 t' u J
'lastSel.Delete '删除选择集 q( Z0 V! |+ \8 q# P' A
7 N$ G% j9 }) b( @
1 F' h$ Y' l2 i- j) A
ThisDrawing.Regen acActiveViewport
0 Y; h7 l: l( ~
2 y$ T! F6 x. F7 X
1 |- k6 A U) z2 S
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
& }' _4 }- y4 A
pNew(1) = P(1) + 1405.8% I9 H6 r2 A: J$ Y
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()
' ?: v7 p$ R4 V
Dim ptInsert(2) As Double3 y5 D; y* F2 m$ d, q
Dim lastBlock As Variant
' N0 u1 s" d& a. }
ptInsert(0) = 06 }' D9 n1 `6 F3 E; y: e5 R
ptInsert(1) = 0
& N, H. g* X- l7 O# E8 l
ptInsert(2) = 01 z1 w# [, K n% y+ A8 w
9 {" F7 r ?6 F( ~! D0 r8 F. D) }5 r
'----------插入块A 仅仅一个---------------------------------
* |1 H& ^- f) Q
Dim B As AcadBlockReference '声明一个块参照变量1 }7 a# `; K4 F' w6 u6 T. C
Dim P As Variant '声明一个变体变量用于接收三维点坐标
4 d9 F2 ?# s: l+ y4 P+ s& k
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0). a a7 Y9 k+ O% W
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
1 h; d: ]4 K. \) R0 P
'----------插入块A 完成---------------------------------( P* J7 Y4 f/ z% i
, J# {* h3 ], ~
'----------插入块B---------------------------------& i; A7 A+ ]4 I. j( i( D
'第一个块，需要单独插入
* o3 O+ O" N: z* Q
Dim pNew(2) As Double( R4 ]4 B' ^( y
pNew(0) = P(0) - 500
. J. [1 P9 r8 z! |5 c
pNew(1) = P(1) + 1405.8
7 f* k$ @! }) J5 d
pNew(2) = P(2)/ y, g; F& f9 x
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
' b( i' [' W0 X R) U4 x( Q
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
7 P! M7 K) ^5 `( o) p& `) t
ThisDrawing.Regen acActiveViewport+ o! ?8 F: ]9 P! ]
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'左下角
# o" k( W ?! W# A
Dim MaxPoint As Variant'右上角
' z* w$ f- c% D4 O% C( ^* [: 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里我记的可以通过设置好捕捉模式去捕捉点来着..% O! A- ]1 y5 A% `5 {
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
' q+ w9 |3 j; }+ Ntataki 发表于 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里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块