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(). F' Y. V+ [) m9 c7 w) W2 `
Dim ptInsert(2) As Double
. z) ^9 F( T( g4 D
Dim lastSel As AcadSelectionSet# P% m3 @3 @4 O& W5 l
Dim lastBlock As Variant' o9 k, f* S( i; l7 g7 \2 v0 n5 D
ptInsert(0) = 0) ^& i# R* T9 F& [# N
ptInsert(1) = 0
, v9 W4 `+ H. I5 t/ v) x! k
ptInsert(2) = 0. ^& u' e! t5 @0 `: J" v. @$ S
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0+ I$ z6 h# _) y/ F
$ w) G3 y. G) J9 ?
7 v# O# z+ q- \% M& E. ]# u
$ f* Y* m8 @+ [: A6 ?( W: |
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
5 J! ^$ t; H: ~5 H5 H+ z8 i x
lastSel.Select acSelectionSetLast
# G: r7 H" A! J7 w3 g. `
) A, O: Q0 l P/ S2 J! F
Dim B As AcadBlockReference '声明一个块参照变量. O, f, i/ Q- V5 b3 M5 y
Dim P As Variant '声明一个变体变量用于接收三维点坐标- n! Q( w8 y& R- P
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
# k) H: k+ g6 A- z7 i6 ^: K& H
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
# ~1 c4 D; W8 q! u3 [5 e' m- q7 f
2 I- |; w/ n( k* E+ B! u9 K0 r6 v2 {
lastSel.Delete '删除选择集6 T- w9 x+ ?6 \2 Q% g
, O. N' r: Y5 L/ D
0 r, |+ k4 ]7 w% r* ^. n: A
ThisDrawing.Regen acActiveViewport3 f8 d) j5 e1 i: q6 {/ T2 A
: `# R9 {* D# D9 }, O4 J% x7 e
+ f( i; @. @6 p# g* p' o; x
End Sub

复制代码

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

Private Sub cmdInsert_Click()* W9 p$ L6 T5 q8 B
Dim ptInsert(2) As Double
' U i5 V4 {5 \7 @& ?- W; P
'Dim lastSel As AcadSelectionSet n; J- _! ?+ I# i
Dim lastBlock As Variant$ b) w* ~5 e# [5 E
ptInsert(0) = 0
: s! I( w# a3 a$ ~
ptInsert(1) = 0
' R6 I% T2 q" C% W0 S5 D- b& D' c2 z* i
ptInsert(2) = 0
) m( y0 m0 a2 R; l
- G) ]! X. }+ |$ v' U
* n& M% g& F) {! A3 a7 Q3 u
3 k0 @5 u3 ]- K8 \& o3 L* G3 ?
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
* C# `. @. T- u; H
'lastSel.Select acSelectionSetLast
# r/ [8 D0 D8 o( {- u2 I9 m3 \
! U. c, V+ _; M) x: r) n, f* P$ s. g
Dim B As AcadBlockReference '声明一个块参照变量
( g, o5 Q! z$ Y
Dim P As Variant '声明一个变体变量用于接收三维点坐标
% |5 S( t1 U. |. r% q) H' H6 \: `
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
( U. j8 _9 d* Z
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
( F4 B* y$ Z7 b0 h$ R, f# G% F
9 P- y& e2 k8 y) T; J2 z0 p- e3 f
'lastSel.Delete '删除选择集
1 ~' z' E: W$ Y. b8 l) k. M
( m s7 a \9 W" v) i1 {' k
& @1 M1 `3 J' @3 L. z `
ThisDrawing.Regen acActiveViewport& C6 {) e' i! V
! S( p/ @7 x# _+ a! Y- F4 m3 L5 c
! f2 B) H. E0 @ }. [
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
- P1 Q; X: [$ P( y( r, V
pNew(1) = P(1) + 1405.8& C0 x5 m2 p$ M, E) @- `' U0 D
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()
7 @5 u: B4 r* Z7 i H# B% x! u) E6 E
Dim ptInsert(2) As Double
1 u4 P" r- B! ^# V, l3 L, A2 u
Dim lastBlock As Variant
7 u4 e* f( ]0 _8 E
ptInsert(0) = 0
. I# g- L* E2 s6 h9 w0 T# j: B
ptInsert(1) = 0
! }8 O: c, U/ f. G
ptInsert(2) = 0/ I. x! G# B! m* A3 }
9 C5 d) b7 Q& B
'----------插入块A 仅仅一个---------------------------------
. ^: Q% v4 J' A$ E% e- B+ Z. C# L
Dim B As AcadBlockReference '声明一个块参照变量
" N. R3 U; G0 o3 ^" _2 O% g$ _
Dim P As Variant '声明一个变体变量用于接收三维点坐标
+ {0 G/ q% G# M/ b3 i: h8 H
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)# t' o* j* L" t1 W! s5 J. F0 z
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组& M# O2 D$ f6 p q C2 k
'----------插入块A 完成---------------------------------( u5 l5 v. R7 o
* l7 w9 B5 p" |: r. A4 Q5 m& T
'----------插入块B---------------------------------
# k$ ?% n4 _& f8 X E: Q% d9 w: D
'第一个块，需要单独插入
" T+ _* F9 z0 J1 K) ?! I
Dim pNew(2) As Double" W0 x7 P# f8 q" }9 @
pNew(0) = P(0) - 500
! }9 u+ d& v; `, A
pNew(1) = P(1) + 1405.8 \2 P2 S- L9 I
pNew(2) = P(2)
% Q- g" k3 s) M8 b) l1 l
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)5 B4 Y7 h- o0 y& k3 @3 `
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组; ]' T1 p# \/ f+ ~$ o
ThisDrawing.Regen acActiveViewport
7 a1 @! p% C9 M( R* X) 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'左下角
3 c5 o7 x9 E g: p. ^, B# C
Dim MaxPoint As Variant'右上角 v" d7 O0 f9 L$ J+ w
object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

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

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

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

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

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着.. T6 D' K9 P6 v
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...* s% j. a" G M# 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里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块