帮忙看下代码从VBA编辑器运行正常，从命令行启动他就显示找不到边界！！

nhy12345678

帮忙看下代码从VBA编辑器运行正常，从命令行启动他就显示找不到边界！！（使用的是先选择后执行透明命令方式）

Public Sub qt() '快速填充
    On Error GoTo err
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    Dim outerLoop(0) As AcadEntity    ' 定义图案填充
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)   ' 当前图纸的实体数目
    Dim n As Long
    n = ThisDrawing.ModelSpace.Count    ' 调用BOUNDARY命令获取某一点处的边界
    Dim Pt As Variant
    Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
    ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "b" & vbCr & "e" & vbCr & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr    ' 如果存在边界，则会生成新的实体
    ThisDrawing.Regen True
    If ThisDrawing.ModelSpace.Count > n Then
        Set outerLoop(0) = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
    Else
        MsgBox "没有找到边界！"
        GoTo err
    End If
    hatchObj.AppendOuterLoop outerLoop    ' 计算并显示图案填充
    hatchObj.Evaluate
    outerLoop(0).Delete
    ThisDrawing.Regen True
err:
End Sub

nhy12345678

补充说明：在命令行执行中其实通过《ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "b" & vbCr & "e" & vbCr & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr    ' 如果存在边界，则会生成新的实体》后模型空间中已经创建了封闭对象的，但是下一句ThisDrawing.ModelSpace.Count 就统计不到刚才生成的这个对象数量。请问是不是要在执行生成封闭对象后要更新或延时下呢？如何操作。

nhy12345678

我没有办法了！只有采用一个很笨的办法，先用一个命令生成边界后再在命令行调用另外一个命令生成填充

Public Sub qt() '快速填充
    On Error GoTo err
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    Dim outerLoop(0) As AcadEntity    ' 定义图案填充
    Dim eNt As AcadEntity
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)

  ' 当前图纸的实体数目
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("ss")
    sset.Select acSelectionSetLast'得到最近一次创建的图元
    For Each eNt In sset
        Set outerLoop(0) = eNt
    Next
    hatchObj.AppendOuterLoop outerLoop    ' 计算并显示图案填充
    hatchObj.Evaluate
    outerLoop(0).Delete
    ThisDrawing.Regen True
err:
sset.Delete
End Sub
Public Sub bb() '快速填充前先画出边界准备
    Dim Pt As Variant
    Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
    ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "b" & vbCr & "e" & vbCr & vbCr

ThisDrawing.SendCommand "qt" & vbCr

& Pt(0) & "," & Pt(1) & vbCr & vbCr    ' 如果存在边界，则会生成新的实体
End Sub