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()
3 J8 P, Z& y" M, o" n
Dim ptInsert(2) As Double' @) `- i. J3 ?2 b
Dim lastSel As AcadSelectionSet
j2 w7 F, o7 Y
Dim lastBlock As Variant
2 i3 I1 i9 v" ~$ L: m/ Z8 Y
ptInsert(0) = 02 h5 ^, v; X. s+ p7 f! K
ptInsert(1) = 0
O& |4 m. k$ i z
ptInsert(2) = 04 |; r6 J* V0 h) A3 B# n( l: z
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 08 c6 ?) L" z w% r* O
D& y) B4 x0 t5 l$ a8 ]
- k! R8 _: Q5 L! p. r6 _+ Q6 G
, Z. P! m, H3 s7 n, {: M
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '6 q+ P9 H4 k: Q6 {
lastSel.Select acSelectionSetLast
) H6 y! O8 b a" g# [
: k/ x9 y1 I* W
Dim B As AcadBlockReference '声明一个块参照变量
& E2 M- T7 {, Y; T/ a0 p3 X
Dim P As Variant '声明一个变体变量用于接收三维点坐标- G& G3 u; H3 v5 c+ R ]
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
7 C, `' ]' Y- l, R9 V3 O A4 Q! N
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
Q) j1 i& [8 r$ b( c% V1 |' Y/ [# m
0 W2 a6 X- N$ U1 p* ?& ^
lastSel.Delete '删除选择集! v t* j' d; l0 y
& Q- k: w: ]6 _+ f' c
* b: b4 u+ g) T2 I; F: a# M
ThisDrawing.Regen acActiveViewport1 ~- r' T1 t1 ?% ?. z; m2 X4 F- S; Q: }
/ {$ l: r- L( R2 `9 f$ r0 y
0 i) I0 W6 ^+ u, O
End Sub

复制代码

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

Private Sub cmdInsert_Click()
5 D" s! K- D4 X, _& w! [
Dim ptInsert(2) As Double
x$ y/ j0 o/ P1 h/ X1 \
'Dim lastSel As AcadSelectionSet( o; G9 @9 ?. Y) Q; V' B
Dim lastBlock As Variant
; I4 v$ V/ i E7 C- M
ptInsert(0) = 0! u. A; ]2 ^3 M, Z/ M+ O4 F
ptInsert(1) = 0
4 t- M: u8 Y+ {; |+ [8 E3 P, }
ptInsert(2) = 0
. O+ B* F& F1 [6 d) Q- m
+ p/ t3 K0 i" J+ H0 G g5 U3 N/ |8 ~
4 |+ } F* y& q- i6 ~
; [, C6 q. I) f, {; |3 q$ U7 u8 \: J
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '( i* e9 ^6 f/ ]* i: Z3 e
'lastSel.Select acSelectionSetLast
/ ^8 H" e! M0 u; x" i1 H$ M) b
7 j( M4 F2 j6 n( I
Dim B As AcadBlockReference '声明一个块参照变量
3 ~+ X& v+ {8 v8 u! ?, H+ `" j; U
Dim P As Variant '声明一个变体变量用于接收三维点坐标* e' `8 X" K H! L& ^" R
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
3 D( V2 G* {% C# x, p1 V' y/ Q
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组- `# d$ K. N2 X5 c7 N
- P0 z, O) ]) P7 T9 v+ f
'lastSel.Delete '删除选择集
8 o. f5 `$ e# t3 l
, j, T! i A* ^* F; |3 _- Y
* F2 C" t6 o3 A0 m/ V
ThisDrawing.Regen acActiveViewport# f" p0 h+ S2 [% b1 q
0 H2 R# \! F3 y
! j7 t( R* }/ ^, y$ 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
# T! S/ a2 \ J! \6 k/ B
pNew(1) = P(1) + 1405.8. q- {# B, i0 M7 }! \7 e. j
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()
+ H L5 W( ]6 @$ F8 t
Dim ptInsert(2) As Double
4 _- m3 o) |' n* @/ \, [& }
Dim lastBlock As Variant
3 p. q5 H$ M4 L; Y
ptInsert(0) = 06 B2 l/ i" v) A* s& Y+ e. h9 u
ptInsert(1) = 0
+ U1 `9 ^! K( ~
ptInsert(2) = 0) q; C1 d$ S0 H# ]$ Q& Q* S" {
Y/ m& v/ G. g+ |9 `
'----------插入块A 仅仅一个---------------------------------6 j3 H2 F- r- X, M& s1 J3 ]* U$ A
Dim B As AcadBlockReference '声明一个块参照变量. N) `( z8 L6 Q, d. h
Dim P As Variant '声明一个变体变量用于接收三维点坐标
) g, s; Q6 O- Y
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)0 @- i+ n! e" o( I! k9 ]
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
1 V8 R+ a1 Q# Y" a
'----------插入块A 完成---------------------------------
. e; R- y' }" a4 S
& O0 E* Y2 E! S" c5 T5 g& J
'----------插入块B---------------------------------
, x8 L3 Y- \8 r9 \- m5 `. k
'第一个块，需要单独插入% i- H. T2 \5 d5 N
Dim pNew(2) As Double
; V i* I/ T/ W y h4 l
pNew(0) = P(0) - 500
0 D( [" P) k N* g
pNew(1) = P(1) + 1405.8: j' k3 I5 S& T# ^/ R
pNew(2) = P(2)
# V7 t+ x) n( q+ O/ d7 T; T& z. T
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
2 V: j; e5 H+ r Y/ d# t
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组7 \3 y3 T3 b; U7 v* q
ThisDrawing.Regen acActiveViewport- z! l7 D# `6 O8 X4 S& |
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'左下角) s! X+ ?+ A/ Z
Dim MaxPoint As Variant'右上角
' X- `5 l9 Z2 U3 Y
object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

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

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

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

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

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着... \0 r3 g" a4 Z' o
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...2 b* h& F0 R/ l( J
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里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块