Оформление штампа

    Dim blockObj As AcadBlock 
    Dim blockObjsh As AcadBlock 
    Dim insertionPnt(0 To 2) As Double 
    Dim insertionPntshtamp(0 To 2) As Double 
    Dim stringpath As String 
    Dim stringpathnew As String 
    Dim strpathsht As String 
    Dim strto As String 
    '''' 
  Dim objLayout As AcadLayout 
  Dim objEnt As AcadObject 
  Dim objNewLayout As AcadLayout 
  Dim colLayOuts As AcadLayouts 
  Dim objEntArray() As Object 
  Dim intCnt As Integer 
  Dim blnExists As Boolean 
  Set colLayOuts = ThisDrawing.Layouts 


stringpathnew = "C:\bloks\" + stringpath + ".dwg" 
  strpathsht = "C:\bloks\blockshtamp.dwg" 
Dim blockRefObj As AcadBlockReference 
    Dim blockObjshtamp As AcadBlockReference 
     
    'insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0 
    insertionPnt(0) = -5 
    insertionPnt(1) = -5 
    insertionPnt(2) = 0 
   
     
     Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, stringpath) 
     
    Set blockRefObj = ThisDrawing.PaperSpace.InsertBlock(insertionPnt, stringpathnew, 1#, 1#, 1#, 0)