vba里怎么获取上一个创建对象的坐标啊？

tataki

我定义了4个块，想通过输入每个块的数量达到左边的效果，就是块能自动在我需要的点插入，不用手动选择。
其中blockA作为基本块，我指定插入点是原点，当要插入2个blockB时，我是想这么实现：先获取上一个创建对象，也就是blockA的坐标，但是有两个问题：
# n8 H& K  x1 S6 [  t5 b1.我知道有acSelectionSetLast的方法，但是不会用，怎么把选择的上一个创建对象赋给某个变量然后提取需要的信息呢？
2.我想获得的坐标是blockA的插入点坐标，这个怎么实现呢？
之后blockB的插入点就根据blockA的插入点通过计算后插入就行，现在卡在那两个问题那里了
2 C8 b$ E, z1 w版主和高位高手们支个招啊。我把图形和程序（论坛不支持，我做成压缩包了）都上传上来了。谢谢

woaishuijia

方法一:按照楼主的思路使用选择集

1. Private Sub cmdInsert_Click()
   $ ^9 e" P' t- l' c/ f$ k2 m
2. Dim ptInsert(2) As Double
   
3. Dim lastSel As AcadSelectionSet
   8 K4 H9 g% X4 z
4. Dim lastBlock As Variant
     W) D* \) B! u
5. ptInsert(0) = 0
   
6. ptInsert(1) = 0
   
7. ptInsert(2) = 0
   - ^1 @5 N! b. L, V/ R- F1 U
8. ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0
   
9. 
   
10. 
    9 z+ t  a: V. k
11. 
    
12. Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
    1 L5 E- o4 x$ k+ A4 N
13. lastSel.Select acSelectionSetLast
    ( n; ~0 ^$ Z1 J9 ~8 H3 K% ?
14. 
    
15. Dim B As AcadBlockReference '声明一个块参照变量
    
16. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    , E+ H, w4 i" Y
17. Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
    
18. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    % c7 u% s0 |- \6 g& R4 d. B: H& ?, @
19. 
    ! P# L" p+ ^0 [9 Y8 N  L/ P  w
20. lastSel.Delete '删除选择集
      f: _% u, E/ n) ^. H: `5 c
21. 
    ( G! _6 D( w8 s7 D$ s
22. 
    
23. ThisDrawing.Regen acActiveViewport
    
24. 
    2 E6 R$ U$ o& F' p) s5 S5 U
25. 
    ) Z! y9 p3 B8 {* L
26. End Sub

复制代码

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

1. Private Sub cmdInsert_Click()
   
2. Dim ptInsert(2) As Double
   
3. 'Dim lastSel As AcadSelectionSet
   , r* L4 J% @$ u7 Q3 X
4. Dim lastBlock As Variant
   
5. ptInsert(0) = 0
   # k! D# q, V  m! B- X& h
6. ptInsert(1) = 0
   7 n" e8 C+ P* q
7. ptInsert(2) = 0
   # s/ V$ d9 x: ?! ?: R" \* D; ^' _
8. 
   
9. 
   
10. 
    ( a. I; _3 t% @9 |
11. 'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
    : D# w7 p& Q' I" X- t
12. 'lastSel.Select acSelectionSetLast
    0 c8 T" V" ~$ `3 ^* A
13. 
    3 s. v7 R/ r3 r
14. Dim B As AcadBlockReference '声明一个块参照变量
    - M8 h7 B. U, U# n& H
15. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    0 }# `+ k$ K# O" ?
16. Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
    # w' m. [3 |3 D* }9 d" E. h3 a% I
17. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    ! @8 ?% k& e3 P1 I
18. 
    
19. 'lastSel.Delete '删除选择集
    
20. 
    6 y+ ]0 J* P  X8 L, R3 [& `
21. 
    , @3 I  l0 C7 f; J7 Y+ u3 `4 b. j
22. ThisDrawing.Regen acActiveViewport
    
23. 
    - ~$ y1 r9 w: H1 r/ K- |7 F2 j
24. 
    0 `: U: `3 E: ~9 b# |% e7 ?
25. End Sub

复制代码

tataki

首先感谢斑斑大人一大早的悉心解答，你说的第二个思路很好，不用选择集，直接使用块的insertPoint属性获取插入点坐标。我又学到了一招，呵呵。我修改了一下代码，现在可以按照坐标计算后来取得blockB的插入坐标，但是存在一个问题，换算后的坐标实际上和blockA的左上顶点坐标有出入（y方向出入0.72，虽然很小，但是显得不够严谨），因为我是用下面这个坐标换算得出的blockB插入点的：
; H$ X3 b% x+ q( ~

1. pNew(0) = P(0) - 500
   1 Q: O9 A' x- u; O. {; |
2. pNew(1) = P(1) + 1405.8
   
3. pNew(2) = P(2)

复制代码

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

) }2 }4 ^/ @9 M  M1 y" j
: i2 u# X5 E! i  F; B' Q

1. Private Sub cmdInsert_Click()
   3 o, n& ^( m6 \
2. Dim ptInsert(2) As Double
   ' Q5 G, w! r! c6 O$ p( N' C7 o
3. Dim lastBlock As Variant
   
4. ptInsert(0) = 0
   
5. ptInsert(1) = 0
   " j% X* M# I' h; y
6. ptInsert(2) = 0
   " i$ K; p' }5 [% Y" H- h2 f' f
7. 
   . `; P% D+ g4 l# n& Y
8. '----------插入块A 仅仅一个---------------------------------
   
9. Dim B As AcadBlockReference '声明一个块参照变量
   - Z$ J4 R5 A  a" d3 n4 ~1 S' d4 G" W
10. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    
11. Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
    / Y. {) m- p" j2 f% A* S
12. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    
13. '----------插入块A 完成---------------------------------
    
14. 
    
15. '----------插入块B---------------------------------
    0 n/ T! x" A0 |4 Q$ z
16. '第一个块，需要单独插入
    , n. h7 x  l5 b
17. Dim pNew(2) As Double
    1 c5 T! ]9 ^/ U; D
18. pNew(0) = P(0) - 500
    ! O8 A2 ?7 x' P+ A) C' }
19. pNew(1) = P(1) + 1405.8
    - ~, R+ J; U4 _9 I  P, e
20. pNew(2) = P(2)
    
21. Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
    - m6 a, y7 K: T+ s" ]5 p
22. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    $ z) E+ K3 N0 z5 g4 k2 j' o
23. ThisDrawing.Regen acActiveViewport
    ; K$ P: m3 t/ {9 \0 X
24. End Sub

复制代码

woaishuijia

4 q) i6 U3 m6 W% D3# tataki
看了一下你的图,blockA的高度是1405.08,而你在代码中却是

1. pNew(1) = P(1) + 1405.8

复制代码

当然相差0.72了,呵呵
% x: P5 O3 |, vVBA不能实现对象捕捉,但可以通过图形对象的GetBoundingBox方法获取图元对象边框的最大和最小点,即对象在图形界面所占矩形范围的右上角和左下角点.角点是以 WCS 坐标值返回，且矩形边与WCS的X, Y, Z 轴平行。方法是

1. Dim MinPoint As Variant'左下角
   
2. Dim MaxPoint As Variant'右上角
   
3. object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

tataki

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

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

www1974

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
: c. r  A7 O3 d: j) D1 {哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
6 _0 l) g$ }4 _+ Z- @) n2 Ctataki 发表于 2012-4-4 11:52 http://www.3dportal.cn/discuz/images/common/back.gif

lisp一头雾水还能设置捕捉，牛啊！说得大家一头雾水~~

jyzas

谢谢楼主分享

tthsdu

版主辛苦，特登录赞一下

chengeng430

学习大神们的经验