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()" e8 |$ u& ?9 _# m! K
Dim ptInsert(2) As Double
9 \6 M U" J4 K
Dim lastSel As AcadSelectionSet
& I) n& g$ G1 T5 w' U
Dim lastBlock As Variant1 m- y( J4 _- e
ptInsert(0) = 0
; F+ |1 V# q/ R1 W( O2 y9 T
ptInsert(1) = 0
) J) Q7 w. c# i3 [5 x" x4 R ?
ptInsert(2) = 0 E S' k% B6 g! s: A1 @
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0
% A; K9 p0 J0 u4 [
$ V- j& I- O1 ]
/ Z7 k: z% U" _1 }% l
" y) _. J' M+ m3 v
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '; b7 ~* j$ M6 ~: m, \! ]
lastSel.Select acSelectionSetLast' m, J$ M* o8 G5 c. ]; ]- }
3 n2 U1 b7 t$ x/ H0 ^4 d/ y+ ^
Dim B As AcadBlockReference '声明一个块参照变量
. H& {- J" ]$ F2 S/ D; {
Dim P As Variant '声明一个变体变量用于接收三维点坐标: S" A( S- n( j9 t+ x
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
+ d1 I. P5 e: a- i( C$ i
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
! A% w, s) M$ M% Y) _$ J, P9 Q5 |
$ F% N K6 t. P+ R4 R
lastSel.Delete '删除选择集
9 w+ \/ U9 Y6 C- n. Z
+ L7 `# [$ Z! _6 f6 t$ e0 j
# D5 _3 J$ Q: s! B7 N2 W6 v
ThisDrawing.Regen acActiveViewport! i- X5 I) |5 Z5 c$ m+ b3 l0 C" N
% T* G' l% ^( A2 M
8 [0 W* Z% t( ~
End Sub

复制代码

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

Private Sub cmdInsert_Click()! p6 j- z9 j, ~" B" R6 f2 m! i
Dim ptInsert(2) As Double- }: Q. }+ b. K* b
'Dim lastSel As AcadSelectionSet0 E# J: v- }1 |6 Z4 g
Dim lastBlock As Variant0 I3 p1 d; i+ G) C5 u2 p
ptInsert(0) = 07 A% @! p" \4 n
ptInsert(1) = 0; Q. R0 @- q+ g/ @' o/ |5 {- ?
ptInsert(2) = 0
/ n1 X8 x* w% s" e" Z7 V
& d( j o3 a1 u/ w5 W' o! z- I
/ r3 R# g! F/ r7 B8 Q5 g2 |
* u, o" V# _* q: ]; P0 K& W( ]
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '3 m/ [- N8 M; l+ S1 d+ U+ y
'lastSel.Select acSelectionSetLast j) U- V+ {$ Q- c2 X
( T# I2 a$ n2 h
Dim B As AcadBlockReference '声明一个块参照变量
3 i: j Z& W* G. j& [/ @) K
Dim P As Variant '声明一个变体变量用于接收三维点坐标# J+ y- |6 J- ^3 C8 w
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)) b# [) Z: R- q8 h9 W( o" L
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组* }/ c( U) S% I% }% s# Y, D3 W& C0 B; z
& v, C# |, b& D3 u2 I5 K* X
'lastSel.Delete '删除选择集
* T$ j# k# ]+ \! H; F
. o- O: v- c' G# L
2 z% e% D' _( _" m" b% N6 F
ThisDrawing.Regen acActiveViewport
1 ^, O) q0 C3 q. c- V1 d6 c T L
( Y' G( h& T- y) J; \
& D. v5 v: V x5 ^9 g6 p
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
$ [3 Y( L' d. ]$ e3 a }
pNew(1) = P(1) + 1405.8
( Z4 [1 Z$ t# |
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()
3 L! ?2 Y& i7 V# _! ~
Dim ptInsert(2) As Double
& v( G' {2 C; t2 T' Z' }3 {- l
Dim lastBlock As Variant7 V( J( `8 b5 \% h; N+ ?5 v9 b1 |# p
ptInsert(0) = 09 s3 x9 m( c6 d3 u( t+ |0 X0 c, a T
ptInsert(1) = 0) c7 Q& g2 w3 c* I6 D' A
ptInsert(2) = 0
3 r- B5 q, g# Q6 k, [9 J
* z1 Z7 K) G5 E) O! h7 m2 Z$ h
'----------插入块A 仅仅一个---------------------------------
7 L, _9 {' s# m0 R
Dim B As AcadBlockReference '声明一个块参照变量
6 y# j& p3 H/ H* w
Dim P As Variant '声明一个变体变量用于接收三维点坐标1 Z6 g7 F1 p t
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)4 a' E6 x8 Y# Q8 m$ |# t
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
5 [- b/ F# R4 p2 V
'----------插入块A 完成---------------------------------, F6 ]) P/ k* \. ?/ h1 W' W
. z: |! }; ~" O5 k( N6 R/ R
'----------插入块B---------------------------------
6 Z% x/ |% i8 P/ y) X8 ?
'第一个块，需要单独插入
. ^9 c- X2 v9 D
Dim pNew(2) As Double$ G1 n+ Y& z- _* K$ q. u6 }
pNew(0) = P(0) - 5001 i: A, q1 t/ b1 }
pNew(1) = P(1) + 1405.8
) f! G5 `7 y! H! T" W
pNew(2) = P(2), @( a. `. D0 E
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0), M7 h1 n/ ^# `& J
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
. ^/ p5 J1 Z: u* \9 R$ o! r1 P) _! }
ThisDrawing.Regen acActiveViewport5 y! x" c1 }2 ^% a. |: s) U- 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'左下角
- |6 ]0 s( |" E8 j, E
Dim MaxPoint As Variant'右上角( e% u. j( j' r
object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

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

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

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

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

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..8 p% ^" O" P" ^+ T0 ^
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...% e; E! D! c& R) \5 z
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里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块