将阴影区域添加到块。

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)

Sub MakeBlock()
Dim blockObj As AcadBlock
Dim PatternType As Long
Dim bAssociativity As Boolean
Dim Radius As Double
Radius = 1#
Dim insertionPnt(0 To 2) As Double
    insertionPnt(0) = 0
    insertionPnt(1) = 0
    insertionPnt(2) = 0
    ' Define the block
    Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
    
    With ThisDrawing.ModelSpace
        ' Define the hatch
        PatternType = 0
        bAssociativity = True
        HatchPattern = "SOLID"
        ' Create the associative Hatch object in model space
        Set hatchobj = .AddHatch(PatternType, HatchPattern, bAssociativity)
        hatchobj.PatternScale = 1
        Dim outerLoop(0) As AcadEntity
        ' Create the outer boundary for the hatch. (a circle)
        Set outerLoop(0) = .AddCircle(insertionPnt, Radius)
        ' Append the outerboundary to the hatch object, and display the hatch
        hatchobj.AppendOuterLoop (outerLoop)
        hatchobj.Evaluate
        'Add Point
        Dim pointObj As AcadPoint
        Set pointObj = .AddPoint(insertionPnt)
        
        End With
        
    ' The array of primary objects to be copied
    Dim objCollection(0 To 1) As Object
    Dim idPairs 'optional
    ' fill array
    Set objCollection(0) = hatchobj
    Set objCollection(1) = pointObj
    ' etc, etc
    ' copy objects to block
    ThisDrawing.CopyObjects objCollection, blockObj, idPairs
    
End Sub