Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Clock()
    '旋转演示
    Dim i As Integer
    Dim basepoint(0 To 2) As Double
    Dim m As ZcadEntity
    Set m = Application.ActiveDocument.HandleToObject("2FD")
    basepoint(0) = 148: basepoint(1) = 105
    For i = 1 To 60
        m.Rotate basepoint, -Application.ActiveDocument.Utility.AngleToReal(6, zcDegrees)
        Application.ActiveDocument.Regen zcActiveViewport
        Sleep 1000
    Next i
End Sub