将阴影区域添加到块。

Sub MakeBlock()
Dim blockObj As AcadBlock
Dim PatternType As Long
Dim bAssociativity As Boolean
Dim insertionPnt(0 To 2) As Double
    insertionPnt(0) = 0
    insertionPnt(1) = 0
    insertionPnt(2) = 0
    With AcadDoc
        ' Define the block
        Set blockObj = .Blocks.Add(insertionPnt, "CircleBlock")
        ' Define the hatch
        PatternType = 0
        bAssociativity = True
        HatchPattern = "SOLID"
        ' Create the associative Hatch object in model space
        Set hatchObj = blockObj.AddHatch(PatternType, HatchPattern, bAssociativity)
        hatchObj.PatternScale = 1
        ' Create the outer boundary for the hatch. (a circle)
        Set circleObj = blockObj.AddCircle(Center, radius)   '<=============I get the error on this line
        ' Append the outerboundary to the hatch object, and display the hatch
        hatchObj.AppendOuterLoop (circleObj)
        hatchObj.Evaluate
        'Add Point
        Dim pointObj As AcadPoint
        Set pointObj = blockObj.AddPoint(insertionPnt)
    End With
End Sub

Dim NewBlkName As String
Dim InsertPt(0 To 2) As Double
Dim xScale As Double
Dim yScale As Double
Dim zScale As Double
Dim Rot As Double
Dim objNewBlk As AcadBlockReference
InsertPt(0) = something     'x coord
InsertPt(1) = something     'y coord
InsertPt(2) = something     'z coord
xscale = some value
yscale = some value
zscale = some value
Rot = some angle
NewBlkName = "Some name and path to a drawing"
Set objNewBlk = ThisDrawing.ModelSpace.InsertBlock(InsertPt, NewBlkName, xScale, yScale, zScale, Rot)