insertblock在CAD2010中总出错

157787698 · 发表于 2011-8-5 10:10:56

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

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 157787698 于 2011-8-5 12:11 编辑

用insertblock向图纸中插入块，代码如下：

/ C3 B: }8 q/ K3 Z' k9 Y3 H
Dim insertionPnt(0 To 2) As Double4 K3 ?) U5 i8 a& L& n
Dim blockRefObj As AcadBlockReference) }8 m9 B( k! j ^* N+ k
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
& w: G7 o7 n) f! ]
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "d:\drawing8.dwg", 1#, 1#, 1#, 0)
. d- Z) M. L0 B0 ^# ~- m) `$ G
ZoomAll
) B8 S9 ? Y i9 r- }

复制代码

在CAD2006中没有问题，但是一旦拿到CAD2010中就有问题：
当在第一次使用的图纸中重复使用时，没有问题；
但是一旦关掉第一次使用的那张图纸，在新建的图纸中使用的时候就会跳错，提示如下：

请大虾们帮助解决，或提供其他思路，非常感谢。

157787698 · 发表于 2011-8-5 10:13:26

其实图纸内容是神马都无所谓的，一样会跳错

157787698 · 发表于 2011-8-5 10:17:53

难道是因为CAD2010中的thisdrawing需要重新激活？

但为神马其他方法方法没有问题？只发现了insertblock有问题

woaishuijia · 发表于 2011-8-6 06:51:03

貌似这是 ACAD 高版本 ActiveX 的一个BUG,到目前为止我们似乎还只能绕开它.
可用的方法大体上有下面几种:
一.使用 Document 对象的 SendCommand 方法

$ y- J9 E3 S( F, k( r; l. q
ThisDrawing.SendCommand "-insert d:\drawing8.dwg" & vbCr & "2,2,0 1 1 0 " 5 V1 J! A, h* H5 t r$ b0 o5 V

复制代码

二.首先创建一个用于过渡(中间?辅助?)的新文档,并做为全局变量,用 InsertBlock 方法插入外部块参照.当其它文档需要插入该外部块参照时,从这个过渡(中间?辅助?)文档中拷贝过来,而不再使用 InsertBlock 方法
下面两段代码中都引用了 ObjectDbx 类库,目的是在后台运行这个过渡(中间?辅助?)文档,以免它在前台添乱.运行下面两段代码前应引用 ObjectDbx 类库

* }/ e( j" j; s6 h6 s! Q" w
Dim AxDbDoc As New AxDbDocument, Objs(0) As AcadBlockReference, Inserted As Boolean
7 x% a A, b# T( ~
9 h) ^! ~! @& ?! Y+ w5 r( T8 ^
Sub Sub1()
3 k0 n2 u# ]( Q6 r! o
Dim insertionPnt(0 To 2) As Double" z" c/ @$ |% L# k8 u
Dim blockRefObj As AcadBlockReference
; B2 J1 J l5 m! S& h2 N7 e
Dim V As Variant, P(2) As Double
; u! I- E1 F) E' l: E0 E/ L
( C) w- O! R: I9 f/ P& ^
If Not Inserted Then4 F6 e/ O5 ~% |/ k. {3 s: `; Q, g
Set Objs(0) = AxDbDoc.ModelSpace.InsertBlock(P, "d:\drawing8.dwg", 1, 1, 1, 0)1 Z" q. I3 m% \$ E
Inserted = True2 |; m) _$ p0 ~$ z" {1 q2 ?
End If# b6 _. d5 U3 P' z% J* g3 g
2 }* G4 u- E/ {% C& z
V = AxDbDoc.CopyObjects(Objs, ThisDrawing.ModelSpace); |* p9 M+ E+ G& J6 |. S4 m
Set blockRefObj = V(0)
6 Q* a; B* V7 d* c4 v* |: y8 o
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0. v; o7 \, D1 W0 y7 m
blockRefObj.Move P, insertionPnt3 i$ @% e) _6 j! M; P5 l5 b& U4 G
' g8 n: G6 S& ?" X) O7 B+ J: A
ZoomAll
+ \$ I3 k1 c2 W9 O
End Sub
/ u5 W# P: M4 q! I" z2 A

复制代码

三.自己编写一段插入外部块的函数,代替 InsertBlock 方法插入外部块

8 G/ M# Y/ ]' }# L9 `! F
Sub Sub2()5 y% k/ s6 g7 s& y/ l, n
Dim insertionPnt(0 To 2) As Double1 w' t- I% D u: {- [& I
Dim blockRefObj As AcadBlockReference# [9 P+ B8 F( h g/ m$ a% G' p
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
6 o$ h+ ^7 E0 T3 o
Set blockRefObj = InsertBlock(ThisDrawing.ModelSpace, insertionPnt, "d:\drawing8.dwg", 1#, 1#, 1#, 0); _0 J' G: B$ Z1 w
ZoomAll
. [9 I) f: U& z6 G$ D
End Sub% y) g+ A0 j( t6 v! K( f. n5 C$ l
e- d' A8 m6 u3 q9 P
Private Function InsertBlock(ByVal Block As AcadBlock, ByVal InsertionPoint As Variant, _
2 J, @7 [+ [; T% Q# {
ByVal Name As String, ByVal Xscale As Double, ByVal Yscale As Double, ByVal Zscale As Double, _
) d9 A( \- f8 f' h2 c) D
ByVal Rotation As Double) As AcadBlockReference$ o. Q# h" N k9 q' Z
Dim BlockName As String/ g q) y$ d3 v# H+ n9 I
Dim D As New AxDbDocument, E() As AcadEntity, I As Integer, B As AcadBlock, P(2) As Double
0 ?# a1 x9 u# |1 f3 v; o
6 | Y e n X* [
On Error Resume Next
+ k5 u1 S) r( }! N* t$ E9 u' c
O' u7 n9 p! v7 `5 H
BlockName = Right(Name, Len(Name) - InStrRev(Name, ""))
+ ]( e8 N2 |1 [ q: o( @! t1 m# w* W
BlockName = Left(BlockName, InStrRev(BlockName, ".") - 1)
9 P, G0 i: b# c
8 H- e9 C/ }7 \" D2 { h8 z9 g+ b
Set InsertBlock = Block.InsertBlock(InsertionPoint, BlockName, Xscale, Yscale, Zscale, Rotation)
1 l) S8 y, _' f4 `9 ^$ {- `# v; _2 A
1 y+ }' T, ~% X- @$ V; I1 ~ A
If Err Then5 D2 d* p2 @. Z4 V/ O2 T* H
D.Open Name
& g+ N$ |: D2 G) r! \/ _5 ~
If D.ModelSpace.Count > 0 Then$ Q% v# k$ j6 f% q3 X" O
ReDim E(D.ModelSpace.Count - 1)' `% O/ Y. d. e4 b3 z |- \4 @
For I = 0 To D.ModelSpace.Count - 1
7 }! F# w/ U$ m3 Z2 u- r2 J/ C
Set E(I) = D.ModelSpace.Item(I)
$ p- P8 T+ W( _1 c- w$ n' c" m* \
Next
4 Z/ q9 K. |" l# m# \) M
Set B = Block.Document.Blocks.Add(P, BlockName)
% @1 E2 B& ~) W1 w$ B8 [( O
D.CopyObjects E, B
% Q1 l& Y$ ?5 M; V: b
End If
0 u* o# R X1 k/ i
Set InsertBlock = Block.InsertBlock(InsertionPoint, BlockName, Xscale, Yscale, Zscale, Rotation)4 `9 R0 U) Q' ?0 r
End If
* }$ S4 Q- K0 M: V5 Y
End Function2 B( x+ Z. n: o

复制代码

157787698 · 发表于 2011-8-6 23:47:08

斑竹老兄，你太强了，对你的崇拜犹如滔滔江水延绵不绝啊

157787698 · 发表于 2011-8-8 09:20:51

数据类型AxDbDocument有提示说用户定义类型未定义

是不是也要引用ObjectDbx 类库？

还有如何引用ObjectDbx 类库？我在引用列表里没有找到

157787698 · 发表于 2011-8-8 09:31:39

通过在开发人员帮助中搜索ObjectDbx找到了

谢谢斑竹

157787698 · 发表于 2011-8-8 16:33:15

在引用类库的过程中出现问题
CAD2006对应的类库版本号为16.0
CAD2008对应的类库版本号为17.0
CAD2010对应的类库版本号为18.0

本来应该在低版本CAD中引用低版本类库，然后在高版本CAD中应该自动继承为高版本类库

可实际上并不会自动向前继承

请问此问题有没有办法解决呢？

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

[已答复] insertblock在CAD2010中总出错

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