insertblock在CAD2010中总出错

157787698

3 T- Z, X* ?0 f
7 Z: }/ N9 ?1 \! N% I  {; G) ^用insertblock向图纸中插入块，代码如下：

1. 
   
2.     Dim insertionPnt(0 To 2) As Double
   
3.     Dim blockRefObj As AcadBlockReference
   
4.     insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
   ( X) ]7 M6 G. N
5.     Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "d:\drawing8.dwg", 1#, 1#, 1#, 0)
   * m9 d2 v# _" |
6.     ZoomAll
   * {6 w9 x; }6 i9 G' y1 F

复制代码

; \3 m2 Y, P$ V: S  C
在CAD2006中没有问题，但是一旦拿到CAD2010中就有问题：
当在第一次使用的图纸中重复使用时，没有问题；
( @  l+ j# s9 n# N9 ]2 B0 \但是一旦关掉第一次使用的那张图纸，在新建的图纸中使用的时候就会跳错，提示如下：

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

157787698

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

157787698

难道是因为CAD2010中的thisdrawing需要重新激活？
8 K  P, t, P3 l- r, c; }+ ~
$ k" I% [. C' J. B+ S但为神马其他方法方法没有问题？只发现了insertblock有问题

woaishuijia

貌似这是 ACAD 高版本 ActiveX 的一个BUG,到目前为止我们似乎还只能绕开它.
可用的方法大体上有下面几种:
一.使用 Document 对象的 SendCommand 方法
6 D' s' X# c: r) L2 h' G$ W; ~0 _& n

1. 
   
2. ThisDrawing.SendCommand "-insert d:\drawing8.dwg" & vbCr & "2,2,0 1 1 0 "
   

复制代码

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

1. 
   4 @" N( Z+ c3 X- H
2. Dim AxDbDoc As New AxDbDocument, Objs(0) As AcadBlockReference, Inserted As Boolean
   ) A& y5 f. m% e  e1 k2 Q2 ?
3.    
     ?/ S3 Y+ I$ K# R$ I/ f
4. Sub Sub1()
   
5.     Dim insertionPnt(0 To 2) As Double
   
6.     Dim blockRefObj As AcadBlockReference
   
7.     Dim V As Variant, P(2) As Double
   2 U  g9 O( e- t% U# j6 P0 Y* m  e
8.    
   " V. ]: s  ]; G/ z
9.     If Not Inserted Then
   
10.         Set Objs(0) = AxDbDoc.ModelSpace.InsertBlock(P, "d:\drawing8.dwg", 1, 1, 1, 0)
    
11.         Inserted = True
    
12.     End If
    
13.    
    # N7 I- h- ]1 c4 l
14.     V = AxDbDoc.CopyObjects(Objs, ThisDrawing.ModelSpace)
    
15.     Set blockRefObj = V(0)
    3 o# k7 M* W* J8 M, o0 z
16.     insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
    
17.     blockRefObj.Move P, insertionPnt
    
18.    
    
19.     ZoomAll
    & {4 `" {7 Q6 r/ s; O, D7 a1 X+ ~
20. End Sub
    

复制代码

8 v) Y( v, i% m- `: M0 ?1 K三.自己编写一段插入外部块的函数,代替 InsertBlock 方法插入外部块
3 |+ ~( e) b! J3 @" h3 A2 H

1. 
   $ W# `6 n$ r& _$ f& ]9 M$ o2 V3 U
2. Sub Sub2()
   
3.     Dim insertionPnt(0 To 2) As Double
   ! E5 x* {/ w& p
4.     Dim blockRefObj As AcadBlockReference
   ; P1 D3 s8 Z5 s  a
5.     insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
   ' Z% C4 e5 P, T  I
6.     Set blockRefObj = InsertBlock(ThisDrawing.ModelSpace, insertionPnt, "d:\drawing8.dwg", 1#, 1#, 1#, 0)
   9 B$ `8 Z2 D: K1 n/ k9 g# l8 |; ]
7.     ZoomAll
   
8. End Sub
   1 ]$ S* o1 s! f3 @. C2 T' ]* P
9. 
   
10. Private Function InsertBlock(ByVal Block As AcadBlock, ByVal InsertionPoint As Variant, _
    
11. ByVal Name As String, ByVal Xscale As Double, ByVal Yscale As Double, ByVal Zscale As Double, _
    
12. ByVal Rotation As Double) As AcadBlockReference
    
13.     Dim BlockName As String
      J) `# S" i# b, _
14.     Dim D As New AxDbDocument, E() As AcadEntity, I As Integer, B As AcadBlock, P(2) As Double
    6 ]' C% `2 E; `; \3 e
15.    
    ; I6 @# X* q& u# A
16.     On Error Resume Next
    
17.    
    " _4 \0 s* d1 ~# I  R
18.     BlockName = Right(Name, Len(Name) - InStrRev(Name, ""))
    9 P; m% ?! r1 G
19.     BlockName = Left(BlockName, InStrRev(BlockName, ".") - 1)
    / l; X, G. W! H* e
20.    
    
21.     Set InsertBlock = Block.InsertBlock(InsertionPoint, BlockName, Xscale, Yscale, Zscale, Rotation)
    3 F+ U8 y; N+ s
22.    
    
23.     If Err Then
    
24.         D.Open Name
    " Z6 q, m- Z* D. S  P0 ?$ R
25.         If D.ModelSpace.Count > 0 Then
    6 x: u9 i+ J6 ?% W: V4 m# k  a0 ]
26.             ReDim E(D.ModelSpace.Count - 1)
    . ], f$ }; e' s. B, Q
27.             For I = 0 To D.ModelSpace.Count - 1
    
28.                 Set E(I) = D.ModelSpace.Item(I)
    
29.             Next
    
30.             Set B = Block.Document.Blocks.Add(P, BlockName)
    ) R- x; N6 h5 e* y0 ]2 l6 G
31.             D.CopyObjects E, B
    * ]' B  O8 |6 q
32.         End If
    , }3 I! W2 P2 {0 Q& A! S
33.         Set InsertBlock = Block.InsertBlock(InsertionPoint, BlockName, Xscale, Yscale, Zscale, Rotation)
    
34.     End If
    
35. End Function
    & Q% n+ Q, Z  b* M

复制代码

157787698

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

157787698

数据类型AxDbDocument有提示说用户定义类型未定义
4 E% a0 ^( [: f! r( m0 `7 P
* J8 f. K- b1 Y7 J  H- ]是不是也要引用ObjectDbx 类库？
, \8 x+ s/ \+ h# [+ M) A' D
% J( n+ {6 v: a# S4 R4 g6 l2 s还有如何引用ObjectDbx 类库？我在引用列表里没有找到

157787698

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

谢谢斑竹

157787698

在引用类库的过程中出现问题
  f0 z2 y7 k3 z  G) oCAD2006对应的类库版本号为16.0
( N7 e* b; \- @4 `$ n3 ^5 M1 lCAD2008对应的类库版本号为17.0
. I: p, I8 z3 M  O. ECAD2010对应的类库版本号为18.0

! V; N5 p: ?) w0 L4 F$ T( r本来应该在低版本CAD中引用低版本类库，然后在高版本CAD中应该自动继承为高版本类库
7 @; y; x8 s. s: D) g) U7 T
0 ]; I5 ^+ ~7 K可实际上并不会自动向前继承
* u! V* H, ^: s1 a2 w' W
8 g' k8 n' I  m& Q请问此问题有没有办法解决呢？