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

tataki

我定义了4个块，想通过输入每个块的数量达到左边的效果，就是块能自动在我需要的点插入，不用手动选择。
( C' d3 {& d/ b' D$ t. [; n其中blockA作为基本块，我指定插入点是原点，当要插入2个blockB时，我是想这么实现：先获取上一个创建对象，也就是blockA的坐标，但是有两个问题：
* X3 E- X( Y+ b3 e1.我知道有acSelectionSetLast的方法，但是不会用，怎么把选择的上一个创建对象赋给某个变量然后提取需要的信息呢？
2.我想获得的坐标是blockA的插入点坐标，这个怎么实现呢？
- c* }& H6 z$ u7 D/ |之后blockB的插入点就根据blockA的插入点通过计算后插入就行，现在卡在那两个问题那里了
  z! S. Z+ u% @9 S版主和高位高手们支个招啊。我把图形和程序（论坛不支持，我做成压缩包了）都上传上来了。谢谢

woaishuijia

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

1. Private Sub cmdInsert_Click()
   
2. Dim ptInsert(2) As Double
   9 U% }; u: H6 ~3 K+ h4 l
3. Dim lastSel As AcadSelectionSet
   
4. Dim lastBlock As Variant
   
5. ptInsert(0) = 0
   # _& M5 q6 C7 K& ?$ X( u4 k
6. ptInsert(1) = 0
   
7. ptInsert(2) = 0
   
8. ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0
   
9. 
   1 {( f; v, I1 G4 ]
10. 
    
11. 
    
12. Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
    
13. lastSel.Select acSelectionSetLast
    
14. 
    0 |% h9 p7 n! e. _
15. Dim B As AcadBlockReference '声明一个块参照变量
    
16. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    $ q& g! z8 E7 f) z2 `. ^
17. Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
    
18. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
      e9 D9 F% @4 g1 I2 b
19. 
    
20. lastSel.Delete '删除选择集
    $ x& B- c3 l; {
21. 
    0 B6 I8 C1 D! n) V3 r% b1 l1 R8 l
22. 
    
23. ThisDrawing.Regen acActiveViewport
    
24. 
    
25. 
    * n* t3 w3 t" z' E5 W# `
26. End Sub

复制代码

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

1. Private Sub cmdInsert_Click()
   
2. Dim ptInsert(2) As Double
   # l* I( o& l( _' O3 O
3. 'Dim lastSel As AcadSelectionSet
   ; F+ S: [0 l( [& \" T1 X. [
4. Dim lastBlock As Variant
   " l0 @' ~) v, A7 c
5. ptInsert(0) = 0
   ) B5 M$ C- k+ O3 C
6. ptInsert(1) = 0
   
7. ptInsert(2) = 0
   . R  r2 ~" L8 I, b
8. 
   + |, s, E$ n) L2 F/ j; L
9. 
   0 l# O! c/ \* k' f; b' K" L
10. 
    0 f( i* b. x3 @! u1 k0 s
11. 'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
    ) e* k4 x+ E; d- A* K1 K
12. 'lastSel.Select acSelectionSetLast
    
13. 
    ! H# Z# {3 C7 P, r' ]% l
14. Dim B As AcadBlockReference '声明一个块参照变量
    : t: a3 U8 r: o) L
15. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    
16. Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
    # _9 |# d* Y/ X: w  N4 i
17. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    
18. 
    # d( I+ n- l, F0 `- Q' T
19. 'lastSel.Delete '删除选择集
    
20. 
    ! @; U) e: g/ `% ~0 E( S/ Q. A
21. 
    + r# S* K, e! B& S
22. ThisDrawing.Regen acActiveViewport
    9 F( @1 J9 l  U& x7 C
23. 
    
24. 
    8 a; ^. T& i4 n& s0 W; y+ B7 P
25. End Sub

复制代码

tataki

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

1. pNew(0) = P(0) - 500
   
2. pNew(1) = P(1) + 1405.8
   
3. pNew(2) = P(2)

复制代码

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

% Z  v. d: m2 L$ V2 L: ]
7 j3 N) ^$ J7 z9 F- c

1. Private Sub cmdInsert_Click()
   6 W. N- o" d' \2 B; b
2. Dim ptInsert(2) As Double
   
3. Dim lastBlock As Variant
   0 ?7 C: K' g: c7 T; Y1 U: k
4. ptInsert(0) = 0
   & S$ N7 N: E% I1 f3 x
5. ptInsert(1) = 0
   
6. ptInsert(2) = 0
   9 u- {8 w6 j3 P: \
7. 
   + y- O8 q; r) F; Y" q4 s( t. f+ c
8. '----------插入块A 仅仅一个---------------------------------
   3 g; e: I8 P+ e7 o: V
9. Dim B As AcadBlockReference '声明一个块参照变量
   ' f0 S) l& g1 U
10. Dim P As Variant '声明一个变体变量用于接收三维点坐标
    9 i. P) c/ Z( v/ ?7 m2 |: U
11. Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
    ; f" q$ U; t, C$ z. L1 x) p8 m* T
12. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    
13. '----------插入块A 完成---------------------------------
    & y# D- |. s! M
14. 
    ; l0 E  E- m- M
15. '----------插入块B---------------------------------
    
16. '第一个块，需要单独插入
    ) m+ X% j( ]9 ~0 G* k
17. Dim pNew(2) As Double
    $ R; J3 e3 r. w1 u* g
18. pNew(0) = P(0) - 500
    
19. pNew(1) = P(1) + 1405.8
    9 _6 M  `8 V, l
20. pNew(2) = P(2)
    0 x* G  v# \! @( b6 u
21. Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)
    
22. P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
    " o5 S: E" ^) J$ J- z& Q
23. ThisDrawing.Regen acActiveViewport
    
24. End Sub

复制代码

woaishuijia

3# 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'右上角
   6 g6 X1 ~7 e) E, i, x1 z  {) h
3. object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

tataki

呵呵，漏看了一位数，罪过罪过啊！
, k3 l! Z7 \! e4 C# x( q, g. W$ F原来在VBA里不能实现对象捕捉，这一点真是没想到，在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
# u: p" g: W" Q- \" d: R7 E哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各有千秋。
0 J8 P" x: A* ]9 [$ @
另外，GetBoundingBox这个方法我知道，以前发过一个帖子问过，当时也是斑斑给回复的，呵呵，印象深刻

www1974

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
( _: B8 f+ K+ m  G; S# I哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
1 d6 z* @" t  I' o. J  `6 E6 xtataki 发表于 2012-4-4 11:52 http://www.3dportal.cn/discuz/images/common/back.gif

. ?; A; r0 L  p; j, a  K* B$ klisp一头雾水还能设置捕捉，牛啊！说得大家一头雾水~~

jyzas

谢谢楼主分享

tthsdu

版主辛苦，特登录赞一下

chengeng430

学习大神们的经验