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

baneit319 · 发表于 2015-9-22 22:15:00

想在一个块中画封闭线，在封闭属性上运行出错，具体如下：
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 · 发表于 2015-9-22 23:11:00

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