想在一个块中画封闭线，在封闭属性上运行出错

baneit319

想在一个块中画封闭线，在封闭属性上运行出错，具体如下：

Sub kk()
  Dim basep(0 To 2) As Double '块基点
  Dim blockunit As AcadBlock
  Dim pnts(0 To 7) As Double

  basep(0) = 0
  basep(1) = 0
  Set blockunit = ThisDrawing.Blocks.Add(basep, "Unit")
  pnts(0) = 0: pnts(1) = 0
   pnts(2) = 0: pnts(3) = 100
   pnts(4) = 100: pnts(5) = 100
   pnts(6) = 100: pnts(7) = 0

  Call blockunit.AddLightWeightPolyline(pnts)
    blockunit.Closed = True    ‘’‘调试发现封闭在块中不能这么用，运行出错，改成AddLightWeightPolyline(pnts).Closed = True也不行，，这里求指教，谢谢！
  End Sub

zzyong00

Sub kk()
  Dim basep(0 To 2) As Double '块基点
  Dim blockunit As AcadBlock
  Dim pnts(0 To 7) As Double

  basep(0) = 0
  basep(1) = 0
  Set blockunit = ThisDrawing.Blocks.Add(basep, "Unit")
  pnts(0) = 0: pnts(1) = 0
   pnts(2) = 0: pnts(3) = 100
   pnts(4) = 100: pnts(5) = 100
   pnts(6) = 100: pnts(7) = 0
Dim objPl As AcadLWPolyline
  Set objPl = blockunit.AddLightWeightPolyline(pnts)
    objPl.Closed = True
  End Sub

baneit319

zzyong00 发表于 2015-9-22 23:11
Sub kk()
  Dim basep(0 To 2) As Double '块基点
  Dim blockunit As AcadBlock

谢谢老大，搞定了^_^

baneit319

zzyong00 发表于 2015-9-22 23:11
Sub kk()
  Dim basep(0 To 2) As Double '块基点
  Dim blockunit As AcadBlock

谢谢！