使用VLISP加载-运行-卸载VBA项目

sub unloadify(strMacro as string)
Dim PauseTime, Start
    PauseTime = 1
    Start = Timer
    Do While Timer < Start + PauseTime
    Loop  'The pause so you give time for the macro to finish before trying to unload
thisdrawing.sendcommand "vbaunload" "Projectname.dvb"

Sub BlockonlayersLoop() 'This Sub will keep prompting for the next block until user escapes.
      Dim B As AcadBlock
      Dim ent As AcadEntity
      Dim P
      Dim LayerCol As New Collection
      Dim slayer As String
      Dim Picked As Boolean
      Dim i As Integer
      Dim PauseTime, Start 'Bob's Code
           
      PauseTime = 1 'Bob's Code
      Start = Timer 'Bob's Code
      
      Do While Timer < Start + PauseTime 'This pause gives time for the macro to finish before trying to unload 'Bob's Code
      Do
       On Error Resume Next
       ThisDrawing.Utility.GetEntity ent, P, "Pick a blockref"
       If Not TypeOf ent Is AcadBlockReference Then
        Picked = False
        GoTo ExitOut
       Else
        Picked = True
       End If
       If ent Is Nothing Then
        Picked = False
        GoTo ExitOut
       Else
        Picked = True
       End If
       
       Set B = ThisDrawing.Blocks(ent.Name)
       Debug.Print "The block " & B.Name & " uses the following layers:"
       
       For Each ent In B
        slayer = ent.Layer
        For i = 1 To LayerCol.Count
         If LayerCol(i) = slayer Then GoTo Skip
        Next
        LayerCol.Add slayer
Skip:
        Next
        For i = 1 To LayerCol.Count
         Debug.Print LayerCol(i)
        Next
ExitOut:
        Dim Num As Integer
         For Num = 1 To LayerCol.Count
          LayerCol.Remove 1
         Next
        Loop Until Picked = False
       Loop
       ThisDrawing.SendCommand "vbaunload" & vbCr & "Tools.dvb" & vbCr 'Bob's Code
     End Sub