如何把三个文字合成一个块参照？？？求理解？？？

373294296

我有三个字体的 坐标  怎么注记出来直接成一个块参照？？？
下面的代码怎么不对？
   Dim blockRefObj As AcadBlockReference
  Dim blockObj As AcadBlock, ccccc As AcadText, ccc As AcadText, cccc As AcadText
  Set blockObj = ThisDrawing.Blocks.Add(zbd, "sb")
  '------------------------创建块---------------------------------------------------------------------
        zbd(0) = porinta(0) - 7.5: zbd(1) = porinta(1): zbd(2) = porinta(2) '户主编号、坐标不变'''''''''''''''''''''''
      Set ccc = blockObj.AddText(en(0), zbd, 2.5)
      entt.color = 7
   
        zbd(0) = porinta(0) + 2.1: zbd(1) = porinta(1) + 1.2: zbd(2) = porinta(2)   '面积亩、x坐标不变，y坐标-2'''''''''''''''''''''''''
      Set cccc = blockObj.AddText(en(2), zbd, 2.5)
       entt.color = 7
      
    zbd(0) = porinta(0) - 8.5: zbd(1) = porinta(1) + 3.5: zbd(2) = porinta(2) '户主权利人、x坐标-3，y坐标+3'''''''''''''''''''''''
      Set ccccc = blockObj.AddText(en(1), zbd, 2.5)
       entt.color = 7
    '  Set entt = blockObj.AddPolyline(zx) ''''''''画直线
      entt.ConstantWidth = 0.2
       entt.color = 7

       '--------------------------------注记文字、和编号---------------------------------------------------
       Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(zbd, "sb", 1#, 1#, 1#, 0)

373294296

虽然blocks集合继承Delete方法，用户仍然无法真正删除集合。 企图删除blocks集合会产生错误，因此文件中已经删除了集合的Delete方法
  
问题已解决