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()
0 v7 t" L; g& u) n$ _( b
Dim ptInsert(2) As Double$ m6 b) Z+ S8 L7 m; T
Dim lastSel As AcadSelectionSet7 g- l5 Y. X# l+ |; m
Dim lastBlock As Variant, z! ^- {5 b$ f; C
ptInsert(0) = 06 g F) F/ B5 \9 P, O
ptInsert(1) = 0) l4 w8 b" w+ H9 j+ _
ptInsert(2) = 00 o0 r4 E. S7 N' K- w+ i/ ~
ThisDrawing.ModelSpace.InsertBlock ptInsert, blkAName.Text, 1, 1, 1, 06 Y9 h: h1 W K) G0 ~
6 m# |; F2 X" k- M
$ U' ~2 d: s: |. y; n' G
5 `7 F \4 I1 t7 _& y, j7 e
Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '1 X2 V; U2 `( T/ }
lastSel.Select acSelectionSetLast
% ?5 Z: r* @, J* `
5 f! e# h2 c% _5 F) {
Dim B As AcadBlockReference '声明一个块参照变量
1 R$ I. o9 P/ l1 `7 o; w
Dim P As Variant '声明一个变体变量用于接收三维点坐标
1 A! y: W3 ^ W9 ^' }
Set B = lastSel(0) '把选择集中的第一个(也是唯一一个)元素(最后创建的对象,即上一步在图形中插入的块参照)赋值给变量
1 E4 O0 |; b5 y4 W7 b- i
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组; p& s! {8 z. z6 T' ^+ P
, ^) ]; P2 f; I9 j: W
lastSel.Delete '删除选择集. j' n* e2 J2 b8 y: d7 F
: Q4 c. A0 F) t5 V2 e# m, y
6 h) I8 }0 U* Y. ]% D3 |4 s9 L
ThisDrawing.Regen acActiveViewport2 `. H, `6 D) K; }) K8 _, {9 h
1 `$ p0 D u3 f4 _1 M6 n9 i( F* D. A
* w7 N8 _' b9 ]( c# Q- S% `
End Sub

复制代码

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

Private Sub cmdInsert_Click()6 a( h3 C. y/ ?; z$ _! h5 g/ W
Dim ptInsert(2) As Double+ {% X6 c$ ^; N- ?: _% Q( W6 y
'Dim lastSel As AcadSelectionSet
8 A! l' S( Y: C+ P3 X' ?" |; I4 [. y
Dim lastBlock As Variant+ t& b' [1 c6 J/ U/ O- L# g
ptInsert(0) = 0
! T4 ]+ l! x5 N) }: K2 m; @
ptInsert(1) = 05 L7 \! w. j3 L, b( |7 o% V1 I
ptInsert(2) = 0) L: p) t( [! t/ h6 ?% f% V! F( o; y
0 R; s0 H% t7 E/ a# F
1 ], Q+ V6 X* {7 Q
; W" o2 v# k6 n0 ~5 y7 q5 m$ r2 \
'Set lastSel = ThisDrawing.SelectionSets.Add("SSet3") '. i' a) Z2 [; I9 O% E
'lastSel.Select acSelectionSetLast' ?% N) p `- M y# J, G4 ~5 Y, v
1 l9 D" [4 q/ j: b+ P" R
Dim B As AcadBlockReference '声明一个块参照变量
+ |& i! n( e6 q( `4 Z3 J0 w2 \, l
Dim P As Variant '声明一个变体变量用于接收三维点坐标+ w. Z+ W' z% n% ~- A. |* R
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)& d) u: c) A W+ H
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
- X) a3 J K3 h4 r
0 J+ K* U k% j+ T3 B) S+ h
'lastSel.Delete '删除选择集
# e# c# e, n9 Z
; N! Q( o) o% D( Z
ThisDrawing.Regen acActiveViewport
6 L! u) c* h$ O7 e! i3 T8 H
" ?4 H- \: D& @. c
) u3 @) H/ w' {! M$ ~0 T. ?: ]) ^
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
3 [# C- ?0 S! } L
pNew(1) = P(1) + 1405.82 _$ j5 g& l% b
pNew(2) = P(2)

复制代码

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

Private Sub cmdInsert_Click()
% M1 d/ f9 O+ |$ t" P
Dim ptInsert(2) As Double( _; ?9 S$ s |, a0 l. i
Dim lastBlock As Variant
' |! V A8 \: J! g) {
ptInsert(0) = 0+ P: R, ^) I* L: i7 a/ U9 p
ptInsert(1) = 0
) ~+ ^8 c9 m; @) L3 }% |! e0 V
ptInsert(2) = 0/ x7 q8 D w! @/ m3 s
* e( C) i+ M9 b8 z0 a1 l* v
'----------插入块A 仅仅一个---------------------------------
( m) X+ X: R: D
Dim B As AcadBlockReference '声明一个块参照变量7 j% K2 g! x; ?6 o" M, T% l7 f, G
Dim P As Variant '声明一个变体变量用于接收三维点坐标( G1 i" e1 r1 u3 P* |
Set B = ThisDrawing.ModelSpace.InsertBlock(ptInsert, blkAName.Text, 1, 1, 1, 0)
+ h( b- r" m6 N$ u+ F5 ]& v
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
6 G' Y: c/ z. E0 e/ p
'----------插入块A 完成---------------------------------
6 _8 p8 p' o5 I O! _8 }& k
, s0 b% F$ D& h1 G: `6 |+ j
'----------插入块B---------------------------------# s/ X- H1 N& A& q+ ]$ o1 \" F+ s
'第一个块，需要单独插入
3 k D$ j; @& g) t. j
Dim pNew(2) As Double
5 V4 P1 R/ w$ K4 ]" ]( }0 N/ _
pNew(0) = P(0) - 500 V2 P1 A& q( z1 v0 I) z
pNew(1) = P(1) + 1405.8
$ f n" j) J( j& Y1 |, R
pNew(2) = P(2)
- G/ f% ^4 c0 K
Set B = ThisDrawing.ModelSpace.InsertBlock(pNew, blkBName.Text, 1, 1, 1, 0)6 Q- l$ e: O1 T( n
P = B.InsertionPoint '提取上一步插入的块参照的插入点坐标,返回值是三元素双精度数组
2 P8 N! p* {% S$ e8 G U# K$ y
ThisDrawing.Regen acActiveViewport
9 P) E4 O. Z. p- Z
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'左下角" B7 t" }. \! \( g. W
Dim MaxPoint As Variant'右上角. f1 x% C" l; f8 B9 j
object.GetBoundingBox MinPoint, MaxPoint

复制代码

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

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

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

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

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

在lisp里我记的可以通过设置好捕捉模式去捕捉点来着..
/ K, c; |; s; P2 ]( `6 K哎，可惜lisp的语法常常搞得我一头雾水，也慢慢放弃了，转投vba，两者各 ...
& A0 t0 G: z( I9 P C0 H) z& rtataki 发表于 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里怎么获取上一个创建对象的坐标啊？

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

评分

浏览过的版块