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()
& M3 V6 \% d. U6 ?
Dim ptInsert(2) As Double: h( n- P: B* Y! g+ E
Dim lastSel As AcadSelectionSet/ E. z1 [' ^" v. s3 Q
Dim lastBlock As Variant! A( d) @" c3 j% u
ptInsert(0) = 08 \1 R( b- j* [% |" d7 f7 z
ptInsert(1) = 08 f. ~# q7 A5 L D5 s& E, E# ~
ptInsert(2) = 0; f7 [) S {4 A9 y2 m
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 0. y* G3 d) }7 W% x
% x8 x) @# u7 d
8 U* Z: D' q- E/ {# M
# t8 ?8 Y) ~: `$ L- E" U
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '# h$ s J% E) t. V
lastSel.Select acSelectionSetLast4 `# q9 W; n8 O1 z
8 q' _) W8 I$ Z# x+ v% G' Z
Dim B As AcadBlockReference '声明一个块参照变量
0 O6 ]8 d# ]% C! N9 B b1 {, F
Dim P As Variant '声明一个变体变量用于接收三维点坐标, S; }4 g; l( H+ @# ]
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
. x! w. n0 F; q
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
& `: z$ o+ {3 G) i C
) S6 l1 ]! u+ o; v0 j
lastSel.Delete '删除选择集$ I# I" I: Q# h9 ]; B' U
" N- Z9 a" u5 N3 @4 t z9 W
; V m$ r# P) A* B7 A7 D' d) }" P: ?1 s
ThisDrawing.Regen acActiveViewport
. j ^: m$ I1 _3 }( b6 x9 p
/ _2 H" D2 Z7 P3 }; b2 ?' l+ g
5 u3 H+ }8 B# Q h% h2 o7 C
End Sub

复制代码

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

Private Sub cmdInsert_Click()' g4 n# x5 H$ P1 B" U
Dim ptInsert(2) As Double4 \" {" [1 U7 ?( {5 w* D0 ?
'Dim lastSel As AcadSelectionSet0 Z' A6 f; A3 [3 O! J
Dim lastBlock As Variant5 l9 Z8 ^3 }& T3 A' |) J; p
ptInsert(0) = 0
# g6 C& r, T1 `0 ~0 C: \7 G- n
ptInsert(1) = 0/ W: R. |* g6 L% P( U8 C# {1 a
ptInsert(2) = 03 E1 } |3 L8 s8 U! B- A2 }$ X
% @2 G8 Z' i. u1 N" u+ r! i
) r5 Z6 K0 r' c6 X. T
- \& e" h* ~1 c2 a+ h( |
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '
5 G% [$ G6 U3 I5 ~
'lastSel.Select acSelectionSetLast. p! X+ d1 M& U! _& t f
2 i B) f7 L; g) |
Dim B As AcadBlockReference '声明一个块参照变量2 G+ t. I+ @) b9 J
Dim P As Variant '声明一个变体变量用于接收三维点坐标6 Q, O% X$ e6 p* v/ H
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)# ^7 O; U- C N' ] k; n
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组0 I5 D7 ?2 o: i$ l! t6 w
7 }/ }8 i0 `1 @( I" [. \$ h/ X0 T
'lastSel.Delete '删除选择集
9 M+ l9 [+ z' G2 X7 a
4 m" V% D, I6 N/ ` k
v P+ q; E6 q% P- m5 d% p9 r
ThisDrawing.Regen acActiveViewport1 o7 F5 M9 K3 p% t6 j8 J4 f3 F
, u) J1 |) l# B5 i
4 {) N9 m2 X2 T* l4 V1 |( h
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
# S/ `" s8 ^2 W3 D7 f$ F( j; L0 q0 k- A
pNew(1) = P(1) + 1405.8
! v% v& b! t$ b1 }) N9 b
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click() F9 J6 c& [% h
Dim ptInsert(2) As Double( P# F) K1 l" M5 G5 F0 o* ?* O4 c0 N5 v
Dim lastBlock As Variant
3 w- I- u" A4 r- G, o' N
ptInsert(0) = 09 S0 F1 v2 D7 Z" \- w
ptInsert(1) = 0& `5 C, z: B/ d" M8 O s
ptInsert(2) = 05 |2 o# ?% _% {' t: R
h% G6 W: |8 x8 b- Y5 B
'----------插入块A 仅仅一个---------------------------------
7 r- [+ ?; t& q
Dim B As AcadBlockReference '声明一个块参照变量9 Z; R% v8 i: q' |9 t! X
Dim P As Variant '声明一个变体变量用于接收三维点坐标
2 A# s4 v8 {& z7 g. G( n" f8 b# U
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
0 V5 V, n) e& \
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组3 K% Z2 _/ G/ U# g3 p. D' U5 g% m
'----------插入块A 完成---------------------------------+ s! j; T; j. V& {8 e7 k5 [
( ?& H$ I' D+ y: D
'----------插入块B---------------------------------4 C5 L7 }% u; Q3 s! p, i+ |
'第一个块，需要单独插入+ c+ j, e6 a; K* C
Dim pNew(2) As Double; S/ X& T3 P0 R0 M0 w' Q
pNew(0) = P(0) - 500
( E+ `1 f) D# a8 F$ ?: B
pNew(1) = P(1) + 1405.8) e9 Q# q$ y2 K
pNew(2) = P(2)
* H- V1 K' I. [
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)7 c% D6 O$ q r, b, ]
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
- z9 a5 P) f& t. Q, C
ThisDrawing.Regen acActiveViewport" q) P) y. f- ]0 e
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 s* D. v9 B4 }7 W: `* Z
Dim MaxPoint As Variant'右上角
! n2 _7 ]4 P& f
object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

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

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

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

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

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..4 ]; f7 W" S$ V1 W; H2 V
哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
' B) ^$ E/ l/ v' z" [ F* ftataki 发表于 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里怎么获取上一个创建对象的坐标啊？

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

评分