Public Function Simple_box_two()

  ActiveDocument.Unit = cdrMillimeter

  l = 100: w = 50: h = 70: b = 15

  boxL = 2 * l + 2 * w + b: boxH = h

  l1x = w: l2x = w + l: l3x = 2 * w + l: l4x = 2 * (w + l)

  Set mainRect = ActiveLayer.CreateRectangle(0, 0, boxL, boxH)

  Set topRect = ActiveLayer.CreateRectangle(0, 0, l, w)

  topRect.Move l1x, h

  Set bottomRect = ActiveLayer.CreateRectangle(0, 0, l, w)

  bottomRect.Move l3x, -w

  Set sl1 = DrawLine(l1x, 0, l1x, h)

  Set sl2 = DrawLine(l2x, 0, l2x, h)

  Set sl3 = DrawLine(l3x, 0, l3x, h)

  Set sl4 = DrawLine(l4x, 0, l4x, h)

End Function

'// 画一条线，设置轮廓色 M100

Private Function DrawLine(X1, Y1, X2, Y2) As Shape

  Set DrawLine = ActiveLayer.CreateLineSegment(X1, Y1, X2, Y2)

  DrawLine.Outline.SetProperties Color:=CreateCMYKColor(0, 100, 0, 0)

End Function