VB怎样将整张图纸制成一个块

pmq

    Dim BlockRefobj As AcadBlockReference
    Dim Blockobject As AcadBlock
    Dim Blockinspoint(0 To 2) As Double
    Blockinspoint(0) = 0
    Blockinspoint(1) = 0
    Blockinspoint(2) = 0
    Set Blockobject = ThisDrawing.Blocks.Add(Blockinspoint, "block1") '这是添加对象  要怎样才可以一次性添加所有对象
   

zzyong00

AttachExternalReference
然后
bind

zzyong00

1. 直接插入文件成块：
   
2. Public Sub ss()
   
3.     Dim p1
   
4.             p1 = ThisDrawing.Utility.GetPoint(, "请指定插入点<0,0>:")
   
5.     If IsEmpty(p1) Then
   
6.         'ReDim P1(2)
   
7.         p1 = Array(0, 0, 0)
   
8.     End If
   
9. 
   
10. 
    
11.     ThisDrawing.ModelSpace.InsertBlock p1, "D:\Program Files\shlisp2008\Blklib\卫生间详图\-1f集水坑.dwg", 1, 1, 1, 0
    
12. End Sub
    

直接插入文件成块：<br /> Public Sub ss()<br />     Dim p1<br />             p1 = ThisDrawing.Utility.GetPoint(, "请指定插入点<0,0>:")<br />     If IsEmpty(p1) Then<br />         'ReDim P1(2)<br />         p1 = Array(0, 0, 0)<br />     End If<br /> <br /> <br />     ThisDrawing.ModelSpace.InsertBlock p1, "D:\Program Files\shlisp2008\Blklib\卫生间详图\-1f集水坑.dwg", 1, 1, 1, 0<br /> End Sub<br />