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

tataki

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

woaishuijia

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

1. Private Sub cmdInsert_Click()
   
2. Dim ptInsert(2) As Double
   
3. Dim lastSel As AcadSelectionSet
   
4. Dim lastBlock As Variant
   
5. ptInsert(0) = 0
   
6. ptInsert(1) = 0
   7 U/ r/ P% l9 b
7. ptInsert(2) = 0
   
8. ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0
   : C8 A) o- }/ I( Q0 m& p
9. 
   + K% _5 J3 `# Y# O6 ^5 F- _
10. 
    , }* R/ |( i8 G: E: `0 }2 |: u8 k; x4 e
11. 
    ) z$ F0 k# X2 {
12. Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
    # b' [0 B# Q" w4 v! ^
13. lastSel.Select acSelectionSetLast
    : p% [, P9 ~( F# n
14. 
    
15. Dim B As AcadBlockReference '声明一个块参照变量
    
16. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    ' N; g' F. v$ B/ h; T0 @
17. Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
    
18. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    
19. 
    3 E# H/ C7 Z6 o9 \  q
20. lastSel.Delete '删除选择集
    
21. 
    6 A. G9 E6 P" w1 n, w. Q; X0 K
22. 
    1 u" O) M- z& R: w
23. ThisDrawing.Regen acActiveViewport
    8 l' V5 {. ^; _* Z1 ~4 Y
24. 
    
25. 
    6 w8 E% Z9 f4 q( t- n
26. End Sub

复制代码

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

1. Private Sub cmdInsert_Click()
   
2. Dim ptInsert(2) As Double
   6 G- C1 P5 j' B
3. 'Dim lastSel As AcadSelectionSet
   
4. Dim lastBlock As Variant
   2 D8 _- w2 g% X6 X" p. w7 g
5. ptInsert(0) = 0
   
6. ptInsert(1) = 0
   ' n$ }+ L- i, h" o- l
7. ptInsert(2) = 0
   $ j) n8 \/ A: k. ]
8. 
     q: _+ s3 w$ |
9. 
   
10. 
    
11. 'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
    
12. 'lastSel.Select acSelectionSetLast
    
13. 
    0 S$ ]! l( L: K0 d; ~' c; g" a
14. Dim B As AcadBlockReference '声明一个块参照变量
    
15. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    # d/ Z. x# w  H4 U9 J" t
16. Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
    5 S9 F( j7 W6 n& E- I
17. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    
18. 
    1 B7 A3 O* W9 f# @+ X2 @
19. 'lastSel.Delete '删除选择集
    
20. 
    2 t1 p. U6 `& T% S% C3 Z+ Q
21. 
    
22. ThisDrawing.Regen acActiveViewport
    
23. 
    
24. 
    $ r# I& M; f7 h. L3 V
25. End Sub

复制代码

tataki

# w/ J' e6 A2 Z7 f
首先感谢斑斑大人一大早的悉心解答，你说的第二个思路很好，不用选择集，直接使用块的insertPoint属性获取插入点坐标。我又学到了一招，呵呵。我修改了一下代码，现在可以按照坐标计算后来取得blockB的插入坐标，但是存在一个问题，换算后的坐标实际上和blockA的左上顶点坐标有出入（y方向出入0.72，虽然很小，但是显得不够严谨），因为我是用下面这个坐标换算得出的blockB插入点的：
2 I3 x- Q7 W$ v7 p9 V5 Z: R

1. pNew(0) = P(0) - 500
   
2. pNew(1) = P(1) + 1405.8
   7 I8 [9 O) O) M+ _4 i, [; [* H
3. pNew(2) = P(2)

复制代码

我知道出现问题的原因可能是精度问题，所以再请问斑斑大人，可不可以让程序实现在插入blockB的时候，系统通过捕捉blockA左上角顶点来实现呢？
9 Y9 N- u3 ^4 F就是Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)这一句中，pNEW如果能是系统通过顶点捕捉后自动产生的坐标数据，而不要是我通过换算后的坐标。
8 E+ P2 c) Z5 q- s; ^" u7 J6 g, O谢谢版主
5 q* p- R1 j4 g7 E7 L% |, l" E  _0 W2 {
2 q! A3 X: p# @5 {

1. Private Sub cmdInsert_Click()
   % W% X+ i* @* E+ V
2. Dim ptInsert(2) As Double
   1 R4 T8 U5 o3 ~0 C- |; c4 ?
3. Dim lastBlock As Variant
   9 M; C$ H1 q* i6 o* K
4. ptInsert(0) = 0
   
5. ptInsert(1) = 0
   4 o0 E  Q9 n% e, @! U
6. ptInsert(2) = 0
   
7. 
   
8. '----------插入块A 仅仅一个---------------------------------
   / B. F/ L2 Z; m# Q& A
9. Dim B As AcadBlockReference '声明一个块参照变量
   ( G8 c, o, D9 }/ J3 m0 m8 x
10. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    
11. Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
    
12. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
      }& k3 y! a2 K) C' u- d
13. '----------插入块A 完成---------------------------------
    
14. 
    * C1 m$ w8 J7 _: M) ?) I
15. '----------插入块B---------------------------------
    
16. '第一个块，需要单独插入
    ( z3 `: S* c0 a$ q, Z" }
17. Dim pNew(2) As Double
    
18. pNew(0) = P(0) - 500
    
19. pNew(1) = P(1) + 1405.8
    
20. pNew(2) = P(2)
    
21. Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
    
22. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    & b- R, v# ?3 @0 z- a
23. ThisDrawing.Regen acActiveViewport
    
24. End Sub

复制代码

woaishuijia

; G* x- e4 U* Z: j. a
* f5 L1 u7 R* P0 D4 I  A; R3# tataki
看了一下你的图,blockA的高度是1405.08,而你在代码中却是

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

复制代码

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

1. Dim MinPoint As Variant'左下角
   
2. Dim MaxPoint As Variant'右上角
   , i% Y1 E; D% M9 X, E9 X3 `/ @
3. object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

tataki

呵呵，漏看了一位数，罪过罪过啊！
! |- T6 E4 ?, W# b5 e1 j! I1 p原来在VBA里不能实现对象捕捉，这一点真是没想到，在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
2 N, Z  Q. f2 P2 a' A. G) l哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各有千秋。
) j- @5 c$ N2 H# z0 Q8 N7 u4 H
) U3 p" |2 q; l; L) ~3 Z另外，GetBoundingBox这个方法我知道，以前发过一个帖子问过，当时也是斑斑给回复的，呵呵，印象深刻

www1974

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
: n4 e( H& c! {  V" N2 N7 ]哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
tataki 发表于 2012-4-4 11:52 http://www.3dportal.cn/discuz/images/common/back.gif

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

jyzas

谢谢楼主分享

tthsdu

版主辛苦，特登录赞一下

chengeng430

学习大神们的经验