如何绘制快引用对象？

• 回答：

   Private Sub InsertBlock_Click()
  
              '把颜色改回黑白色
              MxDrawX1.DrawColor = 0
  
              '创建一个图层,名为"BlockLayer"
              MxDrawX1.AddLayer "BlockLayer"
  
              '设置当前图层为"BlockLayer"
              MxDrawX1.LayerName = "BlockLayer"
  
              '
              MxDrawX1.InsertBlock MxDrawX1.GetOcxAppPath + "Blk树.dwg", "TestTree"
              MxDrawX1.DrawBlockReference 0, 3600, "TestTree", 1, 0
  
              MxDrawX1.ZoomAll
  
              MxDrawX1.UpdateDisplay
  
              End Sub